ISSN 0392-8896 Copia riservata agli abbonati 


UNA PUBBLICAZIONE DEL GRUPPO EDITORIALE JACKSON 







ANNO 4 N 31 

SETTEMBRE 1985 L 4ooo LA PRIMA RIVISTA EUROPEA DI SOFTWARE PER PERSONAL COMPUTER 



‘ ' • 


PROGETTO 
AEROMODELLO CON MSX A 


EDITOR 
PER 
SPÉCTRUM 

Carte con Apple 


Spedizione in abbonamento postale gruppo 111/70 























































Au! D M 4/275256 del 2/3/85 


In edicola il primo numero di 


7 Note Bit 


Oggi la musica si impara così. 



/, _ _ _ 



Il 1985 è l'anno mondiale della musica... 
preparati con 7 note Bit , la nuova, fantastica opera 
che in soli 15 fascicoli quattordicinali (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica. E puoi suonare subito 
Non perdere il primo numero. Pensa, compresa nel 
prezzo c'è anche la stupenda tastiera professionale per 
il tuo Commodore 64. 
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Questo mese: Grand Prix. 
Come pianilicare la classifica 
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La banca telematica 


T radizionalmente il sistema bancario è sempre stato 

all’avanguardia nell’adozione delle nuove tecnologie 
informatiche. Anzi, gli istituti di credito hanno avuto un 
ruolo pionieristico fondamentale nello sviluppo dei nuovi 
sistemi di trattamento elettronico dei dati: i primi centri meccanografici, 
infatti, furono installati proprio presso le banche che non potevano più 
far fronte ad un volume di transazioni non più gestibile con i mezzi 
tradizionali. 

Date queste premesse era facile prevedere un concreto interessamento 
del sistema bancario a tutte quelle possibilità che l’attuale tecnologia 
telematica offre. Occorre subito dire che c’è una differenza sostanziale 
tra la meccanizzazione iniziale e gli attuali progetti: mentre allora si 
trattava di una necessità organizzativa imposta dalla mole dei dati da 
elaborare, ora si parla di nuovi servizi per agevolare ulteriormente il 
cliente. E mentre nel primo caso il cliente non godeva di alcun beneficio 
diretto dall’adozione di nuove tecnologie, nel secondo è il destinatario 
principale delle maggiori novità. 

Tra non molto tempo per effettuare alcune operazioni bancarie non 
dovremo neanche muoverci da casa o dall’ufficio. Il nostro terminale, o 
il personal computer, potrà collegarsi direttamente con il sistema della 
banca e fornirci immediatamente le informazioni richieste. 

Quando dovremo andare in banca per prelevare o versare del denaro, 
useremo da soli un apposito sportello automatico. 

Gli impiegati, sgravati da noiosi compiti di routine, potranno dedicarsi 
maggiormente a fornire consulenze ed effettuare operazioni 
specialistiche. In epoca molto vicina (la fase sperimentale inizia 
quest’anno) ci abitueremo ad utilizzare i PoS (Point of Sale), cioè 
terminali che consentono di pagare merci e servizi con moneta 
elettronica. 

Ma altri sistemi di home banking sono già previsti e in alcuni casi già 
presentati in anteprima. 

Per la maggior parte di questi servizi, la telematica giocherà un ruolo 
fondamentale contribuendo a ridurre di fatto le distanze fisiche; l’idea è 
quella di far sì che non sia il cliente a spostarsi, ma direttamente 
l’informazione a raggiungere il destinatario dell’operazione. 
Fantascienza? Oggi può forse in parte sembrarlo, ma in un futuro molto 
prossimo tutto questo apparterrà alla realtà quotidiana. 

Già attualmente negli Stati Uniti è possibile acquistare e vendere azioni 
semplicemente usando il personal computer collegato in rete. Sembra 
anzi che l’imprevedibilità derivante da ignoranza “borsistica” degli 
“speculatori domestici” stia portando un certo scompiglio. 

In ogni caso, sarà certo l’uso e non l’abuso di questi nuovi servizi a 
decretarne un sicuro successo: anche perché questa volta si tratta 
veramente di applicazioni informatiche dal “volto umano”. 
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Operatori logici 

Sono un assiduo lettore della vostra ri¬ 
vista e posseggo un Commodore 64. 
Spesso nella lettura di listati incontro 
delle funzioni tipo “Or”, “=” c (il 
simbolo della moltiplicazione) inseriti 
in modo inusuale. Eccone alcuni e- 
sempi: 

• IF (A$ < > “”)-*(A$ < > CHR$( 13)) 
THEN 100 

• C = (A$=C$) OR (A$ = MID$(C$,2)) 

• A = A OR (KE$=A$(KL,o)) 

Vi sarei molto grato che mi deste qual¬ 
che delucidazione sull’uso di queste 
funzioni e il loro significato negli e- 
sempi su riportati. 

Federico Solla 
Napoli 

Or, And e Not non sono funzioni, ma 
operatori logici che funzionano in modo 
analogo ai più comuni operatori aritmeti¬ 
ci, quali + ★. 

L’asterisco c un altro modo, perfettamente 
corretto, di esprimere l’operatore And. 
L’utilizzo di questi operatori è un modo 
elegante c comodo di ridurre il numero di 
linee di un programma, aumentandone 
l’autodocumcntazione, la velocità di ese¬ 
cuzione e l’affidabilità. 

In generale utilizzando gli operatori logici 
si riesce ad evitare qualche istruzione IF, in 
quanto si possono integrare dei semplici 
confronti direttamente nelle istruzioni di 
assegnamento. 

L’operatore logico agisce su funzioni a 2 
valori che danno come risultato vero (nel 
C 64 rappresentato dal numero -1) o falso 
(rappresentato dal numero o). 

Per esemplificare, se noi abbiamo un varia¬ 
bile AS contenente una stringa identica a 
quella della variabile B$ e poi impostiamo 
un assegnamento del tipo C=(A$ = B$) 
potremo verificare che C assume il valore 
—1. 

Infatti la condizione A$=B$ è vera (ricor¬ 
diamoci che AS c BS contengono la stessa 
stringa) e quindi il risultato, secondo 
quanto detto è —1. 

Gli operatori Or c And legano fra loro 2 
condizioni c danno un risultat vero o falso 


(-1 oppure o) a seconda del valore di en¬ 
trambe. 

Così, ad esempio, nel primo caso da lei 
riportato abbiamo un’istruzione che sicu¬ 
ramente esegue una 100 Get AS. 
L’istruzione If dà come risultato vero e 
quindi rimanda alla 100 solo se sono verifi¬ 
cate entrambe le condizioni: AS sia diverso 
da uno spazio vuoto e AS sia diverso da 
Chr$(i 3), che è il codice del Return. 

In altre parole il programma continua a 
rimandarci all’istruzione precedente 100 
Get AS fino a che non vengono digitati o 
uno spazio vuoto o un Return. 

In questo caso l’operatore ★ (cioè And) fa 
sì che le due condizioni considerate con¬ 
giuntamente, diano risultato vero solo se 
sono entrambe vere e risultato falso se 
sono entrambe, o anche solo una delle due, 
false. L’operatore Or, invece, da risultato 
falso solo se sono entrambe false c vero in 
tutti gli altri casi (tutte e due vere oppure 
una vera c una falsa). Esaminando gli altri 
esempi proposti abbiamo che nel secondo 
caso C vale -1 ( vero ) se AS è uguale a C$ 
oppure se AS è uguale alla porzione di C$ 
che parte dal secondo carattere e arriva alla 
fine. (Ad esempio A$ = “Rova” e 
CS=“Prova” danno come risultato 
C=-t). 

Il discorso è perfettamente analogo nel 
terzo esempio in cui A ha sicuramente 
assegnati dei valori o o -1 da combinare 
con il risultato logico della seconda parte 
dell’istruzione. 



Programma 

per calcolatrici Texas 

Ho saputo che la vostra rivista ha pub¬ 
blicato in passato programmi per cal¬ 
colatrici Texas TI57, TI58, TI58C, 
TI59. Vorrei sapere come posso avere 
questi programmi visto che non cono¬ 
sco i numeri sui quali sono pubblicati. 

Stefano Galli 
Aulla (MS) 

Il numero 6 di Personal Software, dell’or- 
mai lontano Maggio 1983, era compieta- 
mente dedicato ai calcolatori tascabili. 
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Oltre ad alcuni articoli di validità generale 
furono pubblicati due programmi validi 
sia per TI58 che per TI 5 9 c uno specifico 
per TI 5 9. 

I primi due presentavano rispettivamente 
la progettazione di un filtro passabasso e 
un gioco di abilità e pazienza. Il terzo, 
invece, provvedeva al calcolo del modulo 
e della fase di una funzione di trasferimen¬ 
to. 

Se c interessato a questi argomenti può 
richiedere il fascicolo in questione al no¬ 
stro Ufficio Abbonamenti. 



Giuste lamentele 

Sono un vostro abbonato e vorrei una 
risposta, se non nella rubrica della Po¬ 
sta, almeno un vostro cortese cenno per 
iscritto a questa mia domanda. 


Posseggo ormai da quasi 2 anni un VIC 
20 espanso quasi a 32 Kbyte RAM, (per 
l’esattezza “28.158 Byte Free”). Ho no¬ 
tato che sulla vostra rivista compaiono 
quasi sempre listati per Commodore 
64, per poi non parlare di listati per ZX 
Spectrum, Apple, ecc.. 

Per il VIC 20 non pubblicate più nien¬ 
te? Siamo d’accordo che sia ormai fuori 
produzione, ma esistono persone che 
come me hanno ancora il VIC 20 e in 
più ben espansi a 8-16-24 Kbyte RAM. 
Vi chiedo, è possibile avere sui prossi¬ 
mi numeri qualche listato di giochi un 
po’ seri, espansi per il VIC 20? D’altra 
parte ho visto che sul n. 27 di Aprile 
avete già adattato il gioco “j La battaglia 
deI lago ghiacciato" per il C 16, non 
esiste qualcosa da poter adattare al VIC 
20 espanso? Nel n. 27 in più vi sono 3 
articoli per il 64; 3 articoli per ZX Spec¬ 
trum; 1 per Sharp, Apple, TI99/4A. 
Non vi sembrano un po’ troppi 3 artico¬ 
li per 64 e ZX in una rivista? 

Sperando di non suscitare la vostra ira 
nei miei confronti, e attendendo un vo¬ 


stro cortese cenno di risposta, porgo i 
miei più cordiali saluti. 

Giorgio Ambrosio 
Torino 

Lungi dall’adirarci con lei, riconosciamo 
invece la fondatezza delle sue lamentele. In 
effetti ultimamente abbiamo un po’ trascu¬ 
rato il VIC 20, ma non per cattiva volontà 
o perché ci risulti “antipatico”: semplice¬ 
mente abbiamo difficoltà a trovare colla¬ 
borazioni interessanti da pubblicare. 
Stiamo comunque correndo ai ripari e 
quanto prima rimedieremo pubblicando 
alcuni articoli che le saranno sicuramente 
graditi. 

Per quanto riguarda le sue considerazioni 
sul numero di articoli dedicati a C 64 e 
Spectrum, vale un discorso più volte fatto 
in precedenza in questa stessa rubrica: si 
cerca di accontentare tutti, ma la maggio¬ 
ranza ha comunque un suo peso c nessuno 
può mettere in dubbio che attualmente C 
64 e Spectrum sono gli home computer 
più diffusi. 
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NEL PROSSIMO 

NUMERO 

TROVERETE 


Uno sguardo 

NELLA VDP RAM 
DI UN MSX 


Animazione 

DI FUNZIONI 
TRIDIMENSIONALI 
CON LO 
SPECTRUM 


Elaborazioni 

A QUATTRO MANI 
CON L’APPLE 


Destroy 

THE CITY 
CON L’ATARI 



Intestazione 

CASSETTE 
CON LO 
SHARP 


Prospettiva 

E GRAFICA 
TRIDIMENSIONALE 
CON IL C 64 


7 



















/ 





Poker di novità 
Commodore 

Q uesto mese diamo ampio spa¬ 
zio alle novità Commodore, 
presentando quattro prodotti 
per il C 64. Si parte con Dida- 
comm I, pacchetto per realizzare lezioni 
assistite dall’elaboratore, suddiviso in due 
parti: una per il docente, l’altra per gli 
studenti. Il primo disco consente di creare 
le lezioni nell’ordine voluto, arricchendole 
con grafici, suggerimenti, domande e ri¬ 
sposte, mentre il secondo viene usato per 
accedere al corso elettronico. Sperimenta¬ 
to con successo dalla SIP in un suo piano 
di formazione interna, Didacomm I è in 
italiano e viene accompagnato da un ma¬ 
nuale di istruzioni ampio ed esauriente. 



Viene venduto, come i programmi che 
seguono, a 75.000 lire più IVA. 

Basotter (BASIC Plotter) è invece un pro¬ 
gramma per gestire facilmente la stampan¬ 
te plotter a quattro colori Commodore 
15 20. Comandi come Linea, Arco, Rettan¬ 
golo vengono tradotti immediatamente in 
disegno senza necessità di ulteriori elabo¬ 
razioni. Per quanto riguarda i testi, è possi¬ 
bile definire quattro diversi tipi di caratte¬ 
re e inclinare le scritte stesse di 90 gradi. La 
programmazione in BASIC viene facilitata 
con nuovi comandi per la gestione dell’u¬ 
nità disco. Sul floppy che contiene Basot¬ 
ter sono compresi dei dimostrativi, il cui 
listato è riportato nel manuale, che ne illu¬ 
strano le possibilità. 

The Manager è un gestore di archivi per C 
64 e Commodore 64 Executive, capace di 
trattare informazioni numeriche ed alfabe¬ 
tiche su disco. Per ogni archivio sono pre¬ 
viste al massimo 2.500 registrazioni, sud¬ 
dividigli in non più di 250 campi estendi¬ 
bili fino alla lunghezza di 40 caratteri. Le 
possibilità di ricerca non si limitano alla 




8 


















sola “chiave principale”, ma si estendono a 
tutti i campi di ogni record. La registrazio¬ 
ne relativa ad un disco di musica classica 
può essere richiamata a partire dalle se¬ 
guenti voci: autore, esecutore, titolo del 
brano, casa editrice, data di registrazione. 
È possibile effettuare calcoli usando i dati 
numerici e derivare un dato da altri. Il 
manuale in italiano illustra tutte le possibi¬ 
lità del package, assieme a quattro pro¬ 
grammi esempio presenti sul disco, che 
realizzano strutture dati ricorrenti: la ru¬ 
brica telefonica, l’agenda degli appunta¬ 
menti con priorità, la gestione movimenti 
del conto corrente e il controllo dei propri 
investimenti. È previsto il collegamento 
con Easy Script per l’elaborazione elettro¬ 
nica dei testi. 

Infine Tot 13 è un programma per rendere 
più semplice lo sviluppo dei sistemi per 
giocare al Totocalcio, ed è capace di stam¬ 
pare tutte le colonne su una ordinaria unità 
di scrittura Commodore. Essendo prevista 
l’opzione “12 colonne”, Tot 13 può essere 
impiegato anche per il Totip e l’Enalotto. 
Lo “sfoltimento” delle combinazioni pos¬ 
sibili c realizzato mediante considerazioni 
statistiche e probabilistiche il cui peso è 
deciso dall’utente. La versione su disco di 
Tot 13 costa 75.000 lire più IVA, come per 
gli altri pacchetti presentati prima, mentre 
quella su cassetta viene 41.000 lire, IVA 
esclusa. 

Opinione 

V. G. Giacomo Mora, 22 
20/00 Milano 
Tel. 02-837)081 



e una tastiera professionale) usando un 
apposito kit distribuito dai rivenditori au¬ 
torizzati. Proseguono anche le consegne 
del QL, mentre cresce il numero di pro¬ 
grammi disponibili per l’ultimo nato di 
casa Sinclair. Dotato di due microdrive 
incorporati, il QL è molto facile da tra¬ 
sportare; la possibilità di collegarlo in rete 
con altri esemplari, assieme alla sua econo¬ 
micità e alle caratteristiche sopraelencate, 
lo fa proporre come uno dei pionieri del¬ 
l’office automation a prezzi contenuti. 

Rebit Computer 

Viale Matteotti, 66 

20092 Cinisello Balsamo (MI) 

Tel. 02-6189391 



Sinclair a tutto gas 

C ontinua il successo dello Spec- 
trum Plus, la versione più re¬ 
cente del micro più venduto in 
Inghilterra. Accompagnato da 
' 'a iva ozia inJ ?, J 12 liascwsi d jynsìoc roirp i\j- 
grammi applicativi, lo Spectrum Plus può 
usare tutte le periferiche compatibili con la 
serie Sinclair. È di recente annuncio il ri¬ 
basso (di un terzo) del costo delle cartucce 
per i microdrive. I possessori dei modelli 
Spectrum precedenti possono passare alla 
nuova versione (con 48 Kbyte di memoria 



Spectrum con floppy 

O pus Supplies ha deciso di lan¬ 
ciare anche in Italia, Discove- 
ry 1, sistema di memoria basa¬ 
to su minidischi da 3,5” per il 
Sinclair Spectrum. L’unità completa e 



compatta offre inoltre un connettore diret¬ 
to per periferiche, una porta per stampante 
parallela, un’interfaccia per joystick ed un 
alimentatore incorporato. Venduta nel re¬ 
gno unito per meno di 200 sterline, Disco- 
very è disponibile anche nella versione II 
con doppio drive per una capacità totale 
lorda di 500 Kbyte. Il software dell’unità 
consente di adattare a Discovery i comandi 
relativi all’Interfaccia 1 dello Spectrum, 
solitamente riservata ai microdrive. 

Bit Sbop Primavera 
Via C. Farini, 82 
20139 Milano 



Con Piccolo Gigante 
l’home computer cresce 

L a milanese Data B. ha messo a 
punto un sistema che consente 
a tutti i possessori di home 
computer di operare con il 
CP/M ed accedere quindi alla vasta libreria 
di programmi disponibili in tale ambiente. 
L’hardware realizzato ad hoc si chiama 
Piccolo Gigante, in sigla PGZX, e si adat¬ 
ta a qualsiasi macchina preesistente dotata 
di uscita per le comunicazioni. Un home 
computer si trasforma così nella console 
del nuovo sistema CP/M, completamente 
contenuto nella scatola nera del Piccolo 
Gigante che comprende uno Z80A a 
4MHz, 64 Kbyte di RAM, 3 porte seriali 
programmabili RS-232C e un floppy disk 
drive 5,25” a doppia faccia. A questo box 
si possono poi collegare espansioni di me¬ 
moria ed altri dispositivi per realizzare un 
sistema che cresce secondo le necessità di 
chi lo usa. Per ottenere il connubio, occor¬ 
re collegare il Piccolo Gigante all’uscita 
RS-232C o equivalente dell’home e lancia¬ 
re poi un breve programma che consente 
di realizzare il trasferimento dei dati dalla 
tastiera al PGZX e da questi al video. Il 
r ^asttala^ r vipC2tMc o m dotazione riporta' 1 
listati dei programmi BASIC per la con¬ 
nessione con i sistemi più comuni. Assie¬ 
me al CP/M, la Data B. fornisce un pro¬ 
gramma che consente il trasferimento dei 
dati tra PGZX e memoria del sistema ospi¬ 
te, nonché una serie di dimostrativi che 
mettono in evidenza i positivi effetti del 
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collegamento per i vari home computer. 
L’utilizzo dell’utility di trasferimento e del 
Dynamic Debugger Tool del CP/M per¬ 
mette di “vedere” programmi di altre mac¬ 
chine, disassemblarli ed eseguirli passo 
passo. Data l’anarchia dei formati dei flop¬ 
py in ambiente CP/M, Data B. offre una 
serie di opzioni di formattazione, a partire 
da t|uclla di base, compatibile con il siste¬ 
ma }4 IBM per dischi da 320 Kbyte, men¬ 
tre per gli 8” si va sul formato 3740 IBM. 
Altre possibilità sono la replica delle con¬ 
venzioni adottate sul PC - PC/XT IBM 
(360 Kbyte), 3B AT&T (710 Mbyte) o 
IBM PC/AT (t,2 Mbyte). 

Espansioni possibili: floppy aggiuntivi da 
5” o 8”, hard disk da io o 20 Mbyte colle¬ 
gabili via interfaccia SASI e tutto quello 
che si può connettere alle due interfacce 
seriali non impegnate dal colloquio con il 
sistema ospite. 

Data B. 

Via G. Pirelli, 26 
20124 Mi lofio 
Tei 02-4)782) 




Schede Eurolog 
in versione CMOS 

L a famiglia di schede in formato 
singolo europeo Eurolog (ba¬ 
sata sui componenti della serie 
Z80), si è arricchita della ver¬ 
sione CMOS delle sue piastre fondamenta¬ 
li. Le schede CMOS, funzionalmente cqui- 
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valenti alle tradizionali NMOS, soddisfa¬ 
no le necessità di chi richiede un basso 
consumo, una scarsa produzione di calore 
o il funzionamento in un esteso intervallo 
di temperatura. Particolari accorgimenti 
consentono di ridurre il consumo fino ad 
un centesimo di quello delle schede stan¬ 
dard. L’elenco delle schede CMOS dispo¬ 
nibili è molto ampio, ci limitiamo a segna¬ 
lare le CPU CPC-4, 7» 7M, 8 e 9, le schede 
di memoria MEC-64 e SMC-24 e quelle di 
interfaccia A/D e D/A AIO-82. 

Zelco S.r.l. 

Piagale Cadorna, 1 ) 

20/2) Milano 
Tel. 02-804)82 



Scuola 

e nuove tecnologie 

S choolwarc, società per l’informa¬ 
tica c la didattica nata da realtà che 
operano nel campo della tecnolo¬ 
gia ed in quello educativo, al suo 
secondo anno di vita, propone corsi di 
BASIC, Logo ed alfabetizzazione per stu¬ 
denti ed insegnanti delle scuole libere o 
statali. Le lezioni si possono svolgere pres¬ 
so le scuole di ogni ordine c grado o nella 
sede organizzativa della società, che forni¬ 
sce anche materiale didattico, programmi 
gestionali per le scuole c consulenze ai vari 
livelli. 

Scboolware - Scuola e computer 
Vìa Rombo//, 78 
201)4 Milano 
Tel. 02-21400 // 



Mastertronic 
anche per MSX 

T re dei più appassionanti giochi 
della casa inglese sono stati a- 
dattati allo standard MSX c so¬ 
no distribuiti anche il Italia: si 
tratta di Space Walk, Finders Kecpers e 
Chiller, già diffusissimi nelle versioni per 
C 64 e Spectrum. La classifica dei giochi 
più venduti vede già l’ingresso del primo 
gioco per MSX. 

Persona rp 
Via A. Mario, 1/ 

)7/oo Verona 
Tel. 04;• 492960 



Insegniamogli 
a far di conto ... 

L a IMSL, ben nota per i propri 
prodotti dedicati ai mainframe, 
ha adattato all’IBM PC dotato 
di compilatore Fortran (Micro¬ 
soft o IBM) le proprie librerie di sottopro¬ 
grammi matematici e statistici. Math/PC- 
I.ibrary contiene routine per le equazioni 
differenziali c l’integrazione, la soluzione 
di equazioni algebriche lineari, sistemi di 
equazioni non lineari, calcolo vettorialc- 
matricialc ed ordinamento, ottimizzazioni. 
Stat/PC-Library comprende funzioni qusp 
li: statistiche di base, analisi di regressione) 
analisi della varianza, analisi di sviluppi in 
serie e previsioni. Ciascun prodotto pro¬ 
gramma costa 440 dollari (sono previsti 
sconti per gli enti di istruzione e per acqui¬ 
sti in quantità) e comprende dischetti, do¬ 
cumentazione completa e guida per l’in¬ 
stallazione. 

IMS L Sales Division 

NBC Building - 7J00 Bel lai re Blvd. 

Houston - Texas 77046 

USA 

Telex 79192) IMSL INC HOU 















Biblioteca MSX 
da Leoni 

L eoni Informatica ha deciso di 
puntare sull’emergente merca¬ 
to del software per le macchine 
che si rifanno allo standard 
MSX. Propone perciò un nutrito catalogo 
di programmi in italiano, accompagnati da 
una garanzia a vita e da un continuo servi¬ 
zio di assistenza ed aggiornamento. Tra i 
titoli: Gestione conto corrente, Rubrica 
telefonica, Introduzione al BASIC MSX, 
Magazzino grossisti e dettaglio con fattu¬ 
razione, Bolle e fatture cli/for. Equo cano¬ 
ne, Farmacie, Ristoranti, Gommisti, Offi¬ 
cine, Lavanderie, Parrucchieri. 

'Leoni informatica S.r.l. 

Via Valsotela, 21 
2014) Milano 
Tel 02-11467)711 



È arrivato 
il bastimento 
Zero Electronics 

A pprodano in Italia i prodotti 
della popolare Casa costruttri¬ 
ce, specializzata in espansioni 
per VIC 20 e Commodore 64. 
Importatore ufficiale è ATW studio di Mi¬ 



lano, che rende nota la disponibilità imme¬ 
diata di programmatori di EPROM a bas¬ 
so costo, interfacce Centronics per colle¬ 
gare i due Commodore alle stampanti più 
diffuse, schede 80 colonne con word pro¬ 
cessor che consente di mischiare grafica e 
testo, sistemi per il controllo di apparec¬ 
chiature elettriche a distanza, buffer di 
stampa economici. Tutti i prodotti sono 
coperti da garanzia e vengono venduti as¬ 
sieme al software e alle istruzioni per l’uso. 
ATW sta inoltre realizzando una propria 
rete di esclusivisti di zona per la distribu¬ 
zione dei prodotti Zero. 

ATW Studio S.n.c. 

Via dei Pestagalli, 7 
201)8 Milano 
Tel. 02-702204 



Computer Club 
a Robassomero 

I n provincia di Torino si è costituito 
il primo Computer Club Comunale, 
appoggiato direttamente dal muni¬ 
cipio che ha fornito i locali della 
biblioteca, organizzato i corsi e messo a 
disposizione alcuni esperti del settore. Si 
punta sugli adulti, ma non si dimenticano i 
ragazzi, primi entusiasti destinatari di ini¬ 
ziative del genere. 

Computer Club Comunale 
Pia^pa del Municipio, / 

10070 Robassomero (TO) 



Posso dire una parola? 

L a Welwyn Systems, divisione 
del gruppo inglese Crystalate, 
sta producendo in grossi volu¬ 
mi per il mercato europeo i sin¬ 
tetizzatori vocali Currah, interessante e- 
stensione per dare voce a macchine quali il 
Sinclair ZX Spectrum e il Commodore 64. 
Le condizioni di lancio prevedono una 


garanzia piena di 12 mesi sul prodotto, con 
altre interessanti opportunità. 

Welwyn Electronics 
Via F. Albani, ) 

20/48 Milano 
Tel. 02-490788 



Poster in regalo 

L a Verbatim Italia mette a dispo¬ 
sizione gratuitamente - ad esau¬ 
rimento - dei poster di un’opera 
dell’artista giapponese Akira 
Kurosaki, particolarmente adatta ad essere 
inserita in Centri Computer e negozi di 
p.c. L’iniziativa si colloca in un program¬ 
ma di "Arte per l’Ufficio Automatizzato” 
realizzato dal Museo d’Arte Moderna di 
San Francisco con la sponsorizzazione del¬ 
la Verbatim. Gli interessati possono ri¬ 
chiederne copie alla Verbatim Italia - Via 
Cernaia, 2 - Milano. 

Chiappe <& Partners 
Corso Magenta, 76 
20/00 Milano 
Tel. 02-4)204/ 

TheWRBATIM GOLLECIÌON 

.il IheSan Francisco Museumol Modern Art 



Art for thè Automated Office 
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La nuova Stampante 
Professionale IBM 4201 è stata 
studiata proprio per il Personal 
Computer IBM: è così piccola da 
stare su qualsiasi scrivania e da 
andar bene per qualunque tasca, e ti 
consentirà di sfruttare al massimo le 
grandi potenzialità della parola 
scritta. 

E infatti una stampante versatile, 
ad alta velocità e dalle caratteristiche 
tecniche molto avanzate. Ecco cosa 
può fare: 

Funzioni differenziate: è in 
grado di stampare note e rapporti 
per segretarie, memo per dirigenti, 


schemi per il direttore delle vendite, 
relazioni di lavoro per tecnici e 
scienziati. E se vuoi usare le sue 
funzioni grafiche, riprodurrà 
perfettamente i tuoi disegni. 

Velocità differenziata: la nuova 
Stampante Professionale IBM può 
facilmente cambiare velocità 
secondo le tue esigenze. 40 caratteri 
al secondo (cps) per documenti di 
alta qualità, 100 caratteri per testi e 
200 per normali lavori di stampa. 

Stampa differenziata: tre “modi 
testo” che producono fino a 18 
combinazioni di stili di stampa. 

Puoi scegliere fra un’ampia gamma 
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Da oggi c’è una nuova 
stampante per il tuo 
Personal Computer IBM. 



di caratteri e di simboli, che ti 
permettono di lavorare in molte 
delle lingue europee, utilizzando 
anche particolari simboli tecnici. 
Puoi perfino creare un alfabeto fatto 
da te, con tutti i simboli che ti 
seivono per il tuo lavoro. 

Alimentazione differenziata 
per la carta: la Stampante 
Professionale utilizza sia moduli 
continui che fogli singoli. 

Ma, diversamente da altre stampanti, 
non devi cambiare il cassetto per la 
carta tutte le volte che cambi 
formato. 

Infatti, c’è una 
fessura nella 


parte anteriore, attraverso la quale 
puoi introdurre carta da lettere e 
buste, per avere stampe immediate. 

E infine il prezzo. 

Il costo di acquisto e di esercizio di 
questa stampante IBM è 
proporzionale alle sue dimensioni: 
molto ridotto. 

Se vuoi avere più informazioni, vai 
dal Concessionario IBM Personal 
Computer (gli indirizzi sono sulle 
Pagine Gialle). E un vero esperto. 

IVr consulenza o acquisti, 

puoi anche rivolgerti al Negozio — ■ ■" —— 

IHM Centromilano o al tuo S _ _ — — — 

Rappresentante IBM. SS ■■ — ? — 
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Box 

Un gioco per studiare la generazione 

dei caratteri 

di Angelo Motta 


I l programma presentato nel lista¬ 
to 1, offre lo spunto per trattare 
l'argomento relativo all’attivazio¬ 
ne del generatore di caratteri, ar¬ 
gomento non inserito nell'User Manual 
del C 16, ma che sicuramente interesse¬ 
rà una gran fascia di utilizzatori, soprat¬ 
tutto quelli a cui piacciono i giochi. 
Prima, comunque, vediamo come fun¬ 
ziona il gioco. 

Istruzioni 

Lo scopo del gioco è quello di aiutare 
un simpatico omino a disinnescare le 
bombe prima che il tempo a disposizio¬ 
ne finisca, evitando e superando le va¬ 
rie difficoltà che incontrerà. 

Dopo aver fatto partire il programma, il 
video si riempirà di scatole marroni (da 
cui il nome Box del gioco) e inoltre di 
teschi mortali, bandierine ed una bom¬ 
ba. Sull'ultima riga è riportato il tempo a 


disposizione rappresentato da una fa¬ 
scia viola che man mano diminuisce. In 
alto il punteggio della gara (Score), gli 
uomini rimasti (Life) ed il punteggio 
massimo raggiunto (Record). Sulla se¬ 
conda riga del video vi sono invece del¬ 
le "molle” il cui utilizzo verrà illustrato in 
seguito. Il nostro omino può muoversi 


unicamente sulle scatole che, man ma¬ 
no che passa, raccoglie. Deve evitare i 
teschi (fortunatamente questi sono fer¬ 
mi), raccogliere le bandierine, cercare 
di non farsi catturare dal folletto delle 
scatole e raggiungere la bomba. Disin¬ 
nescato l'ordigno, ne comparirà uno 
nuovo in un altro punto del video ed 


Listato 1 - Il programma Box. 


100 POKE56,60 :POKE52,60 :POKE55,0 :POKE51,0 

110 T=0:FORI = l000TO1030 : READA 
120 POKEI,A:T“T+A:NEXT 
130 IFT=3288THENl 50 

140 PRINT"{CLRjERRORE NEI DATA!": END 
150 SYSl000 : FORI=1 5360TO1 5839 
160 READ A:POKEI,A:NEXT 

170 FORI = l 5864T015871 :READA:POKEI,A:NEXT 
180 VOL8:COLOR4,11SCOLORO,11 
500 POKE65298,0:POKE65299,60 
520 TRAP60000:PRINT"{CLR}" 

600 CHAR,10,2,"[< 3 P>]{ 5 SPAZI} 

[< 2 P>]{ 4 SPAZI}[<P>]{ 4 SPAZI} 

[<P>]" 

610 CHAR,10,3,"[<H>]{ 2 SPAZl}M 

{ 3 SPAZI}N{ 2 SPAZI}M{ 3 SPAZI} 

{ 2 M}{ 2 SPAZI}{ 2 NT" 

620 CHAR,10,4,"[<H>]OP[<N>]{ 3 SPAZI} 

[<H>]OP[<N>]{ 4 SPAZI}{ 2 M}{ 2 N}" 
630 CHAR,10,5,"[<H>][< 2 Y>]N{ 3 SPAZI} 

[< 2 H>][< 2 N>]{ 5 SPAZI}MN" 

640 CHAR,10,6,"[<H>]{ 2 SPAZl}M 

{ 3 SPAZI}[< 2 H>](< 2 N>]I 5 SPAZI} 
NM " 

650 CHAR,10,7,"[<H>]OP[<N>]{ 3 SPAZI} 

[< 2 H>] [< 2 N> Jl 4 SPAZI}{ 2 N} 

{ 2 M}" 

660 CHAR,10,8,"(<H>1[< 2 Y>]N{ 3 SPAZl}M 
[< 2 Y>]N{ 3 SPAZI}{ 2 Nj{ 2 SPAZI} 

{ 2 M}" 

670 CHAR,!0,9,"[< 3 Y>]{ 5 SPAZI} 


[< 2 Y>]{ 4 SPAZI}[<Y>]{ 4 SPAZI} 

[<Y>]" 

680 CHAR,18,11,"BY" 

690 CHAR,13,13,"ANGELO MOTTA" 

700 CHAR,6,18,"PREMI <RETURN> PER INIZIAR 
E" 

710 RESTOREI 3000 
720 DOUNTILZ$=CHR$(1 3) 

730 READAA,BB: IFAA= OTHENRESTOREl3000:GOTO 
730 

740 CC=INT(RND(0)* 16)+1 :DD = INT(RND(0) *7) + 
1 

750 COLOR4,CC,DD: COLORO,CC,DD 
760 SOUNDl,AA,BB:GETZ$: LOOP 
770 COLOR4,!1 SCOLORO,11 
990 SC=0:ME= 3:SK=10 :V=4:BF=0 
1000 XX=0:YY=0:L=0:R=0:BD = 0:B= 31 52 
1010 PRINT"{BLK}{CLR}SCORE"SC:CHAR,l6,0," 
LIFE":PRINTME:CHAR,25,0,"RECORD":PRI 
NTHS 

1015 CHAR,0,2 4,"{RVS}TIME=(OFF}" 

1020 FORI = 4037TO4071 :POKEI,0:POKEI-1024,4 
SNEXT 

1030 Q=3112:POKEQ,63:POKEQ-l 024,3 
1 0 50 FORI = 0TO10:FORJ=3152+I*80TO3190+1*80 
STEP2:POKEJ,42 :NEXTJ,I 
1060 FORI = OTOl0 :FORJ = 3153+I*80TO3191+1*80 
STEP2:POKEJ,43:NEXTJ,I 
1070 FORI = OTO10 :FORJ = 3192+1 * 80T03230+I*80 
STEP2:POKEJ,44:NEXTJ,I 
1080 FORI=OTOlO:FORJ=3193+I*80TO3231+I*80 
STEP2:POKEJ,45:NEXTJ,I 
1090 FORI = 2128T03007:POKEI,2 :NEXT 
1100 BT=34:FORI=lTOSK 
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COMMODORE 16 


avrete a disposizione un nuova dotazio¬ 
ne di tempo, ma, attenzione, le scatole 
saranno quelle rimaste, per cui state 
bene attenti a come vi muovete, in modo 
da non rimanere intrappolati e quindi 
non potervi più spostare. In questo ca¬ 
so, ed anche quando il folletto sta per 
raggiungervi, ecco che potete utilizzare 
le molle con le quali saltare in un’altra 
parte del campo; il salto non è control¬ 
labile e quindi esiste il rischio di finire 
anche sopra ad un teschio. All’inizio a- 
vete a disposizione una molla soltanto 
e, ad ogni bandierina raggiunta, ne 
guadagnerete una. 

Dopo aver disinnescato tre bombe 
passerete alla fase del “Bonus”, nella 
quale le scatole spariscono e l'ultima 
riga del video viene riempita di teschi e, 
a caso fra essi, una bandierina. Il vostro 
compito sarà quello di far centrare dal¬ 
l'omino la bandierina; se non ce la fare¬ 
te l'omino perderà la vita. 


Quando avrete raggiunto e superato la 
fase del Bonus il gioco riprenderà dall'i¬ 
nizio con un livello d ; fficoltà maggio¬ 
re (un numero superiore di teschi ed il 
tempo che scorre più velocemente). 

I comandi sono: 

• A: per spostare l'omino a sinistra; 

• 3: per salire; 

• 4: per andare a destra; 

• W: per scendere; 

oppure utilizzare il joystick nella presa 2; 

• spazio: per fermare momentanea¬ 
mente il gioco ed ancora spazio per 
farlo ripartire; 

• T o Fire del joystick: per usare le molle. 
I tasti relativi alle direzioni possono ri¬ 
sultare scomodi, ma sono stati intenzio¬ 
nalmente scelti in quanto corrispondo¬ 
no ai caratteri derivati dall'uso del joy 2. 
Comunque è possibile utilizzare i tasti 
desiderati variando le istruzioni delle ri¬ 
ghe da 1560 a 1590 del programma e 
rispettivamente la 1560 per lo sposta¬ 


mento a sinistra, la 1570 per quello in 
alto, la 1580 per il basso e la 1590 per 
quello a destra. 

Punteggio: 

• 10 punti per ogni scatola presa; 

• 250 punti per ogni bandierina rag¬ 
giunta; 

• 500 punti per ogni bomba disinnesca¬ 
ta; 

• 25 punti per ogni frazione di tempo 
rimasta dopo aver disinnescato la bom¬ 
ba; 

• 100 punti per ogni molla rimasta dopo 
aver disinnescato 3 bombe; 

• Bonus: punteggio variabile in base al 
livello di difficoltà raggiunto nel gioco, 
ed al tempo impiegato dall'omino per 
scendere verso la bandierina. 

Il generatore di caratteri 

Passiamo ora a trattare l'argomento 
forse più interessante di questo articolo. 


1110 SX-INT(RND(0)*20) :SY=INT(RND < 0 )* 10): 

IFSX=0ANDSY=0THEN1110 
1120 D*3152+SY*80+SX*2:E=D-l 024 
1130 POKED,38 :POKED + 1,39 :POKED+40,40 :POKE 
D+41,41 

1140 POKEE,0 :POKEE+1,0 :POKEE+40,0:POKEE+4 
1 ,0 

1150 NEXT:FORI = 1TOINT(RND(0)*6) 

1160 SX=INT(RND(0)*20) :SY=INT(RND(0)* 10): 

IFSX=0ANDSY=0THEN1 1 60 
1170 D=3152+SY*80+SX*2:E=D-l 024 
1180 POKED,27:POKED+1,28:POKED+40,32:POKE 
D+41,29 

1190 POKEE,2:POKEE+1,0:POKEE+41,0 
1200 NEXT 

1210 SX“INT(RND(0)*20):SY=INT(RND(0)* 10): 

IFSX=0ANDSY=0THENl210 
1220 C=3152+SY*80+SX*2:E=C-l 024 
1230 POKEC,46:POKEC+1,47:POKEC+40,58:POKE 
C+41,59 

1240 POKEE,0:POKEE+1,0:POKEE+40,0:POKEE+4 
1,0 

1 245 RESTOREI 1000 :AA=1:DOUNTILAA=0 
1246 READAA,BB:SOUND 1,AA,BB:LOOP 
1250 HY=SY:HX=SX:IFBFTHENl320 
1260 SX»INT(RND(0)*20):SY=INT(RND(0)*1 0) 

1270 IFSX*2+SY*80=YYOR(SX=HXANDSY»HY)THEN 
1260 

1280 D = 3152+SY*80+SX*2:E=D-1024 
1290 POKED,30:POKED+1,31 :POKED+40,44:POKE 
D+41,45 

1300 POKEE,0:POKEE+1,0:POKEE+40,2 :POKEE+4 
1,2 

1310 BX=SX:BY=SY 


1 320 J=XX+B:POKEJ,33:POKEJ+1,35:POKEJ+40, 
36:POKEJ+41,37 

1330 J=YY+B-1024:POKEJ,6:POKEJ+1,6:POKEJ+ 
40,6:POKEJ+41,6 
1500 GH=R:GETZ$ 

1510 IF ( YY-L/2) /80OINT ( ( YY-L/2) /80) THENL 
■(YY-((INT(YY/80))* 80))/2 
1520 IF(Z$="T"ORJOY(2)>127)ANDQ>3111THENP 
OKEQ,32:Q=Q-l:GOSUB9000:R=L:GOTOl680 

1530 IFZ$<>" "THENl550 
1540 GETZ$:IFZ$<>" "THENl540 
1550 X»0:R=L 

1560 IFZ$="A"THENR b R-1:X=-2 

1570 IFZ$="3"THENX*-80 

1580 IFZ$="W"THENX=80 

1590 IFZ$="4"THENX S 2:R=R+1 

1600 IFR<0THENX = 38 

1610 IFR>19THENX=-38 

1620 B-3152:YY»YY+X:XY=PEEK(YY+B) 

1630 IFXY=30ORXY«38ORXY = 42ORXY=27ORXY=*46T 
HENl660 
1640 YY=YY-X 
1650 R*GH:GOTO2000 
1660 L=R:IFL<0THENL=19 
1670 IFL>19THENL=0 

1680 R»L:J=XX+B:POKEJ,32:POKEJ+1,32:POKEJ 
+40,32:POKEJ+41,32:XX=YY 
1690 J=YY+B:BE=0 

1700 IFXY=30THENPOKEJ+40,36 :POKEJ+41,37:P 
OKEJ-984,6 :POKEJ-983,6 :BE=1:GOTO3000 

1710 Z$="" 

1720 IFXY«38THENPOKEJ,33 :POKEJ+1,35 :POKEJ 
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Seguito lietato Box. 


-1024,6:POKEJ-l023,6:GOTO3000 
1730 SC-SC + 10 SPRINT"{HOME}{ 6 DES}"SC 
1 740 J*YY+B:POKEJ,33:POKEJ+1,35:POKEJ+40, 
36:POKEJ+41,37 

1750 E=J-1024 :POKEE,6 :POKEE+1,6 :POKEE+40, 
6 :POKEE+41,6 
1760 IFXY027THEN1 800 

1770 SC=SC+250:PRINT"{HOME}{ 6 DES}"SC 
1 780 Q*Q+1:POKEQ,63 :POKEQ-1024,3 
1 790 FORI*600T0900STEP4:SOUND1,1,1 :NEXT 
1800 IFXY046THEN2000 

1810 SC-SC+500SPRINT"{HOME}{ 6 DES}"SC 
1820 FORI=700T0900STEP4:SOUND1,1,1sSOUNDl 
,1+50,1SNEXT 

1850 FORI*BTTO0STEP-1 :POKE4037+1,32 
1860 SC-SC+25:PRINT”{HOME}{ 6 DES}"SC:NEX 
T 

1900 BD=BD+1:IFBD=3THEN3500 
1910 FORI=4037T04071:POKEI,0:POKEI-1024,4 
:NEXT:BT=34 

1920 SX*INT(RND(0)*20):SY=INT(RND(0)*11) s 
C*SX*2+SY*80 

1930 IFC=YYORC*BX*2+BY*80THENl 920 
1940 HX=SX:HY*SY:C*B+C:E=C-1024 
1950 POKEC,46:POKEC+1,47:POKEE,0:POKEE+1, 
0 

1960 POKEC+40,58 :POKEC+41,59 :POKEE+40,0 :P 
OKEE+41,0 

2000 F-lSPRINT"{HOME}{ 6 DES}"SC:CHAR,20, 
0,.PRINTME 

2010 POKE40 37+BT,32:BT=BT-1/V:IFBT<0THENG 
OSUB4000 

2020 Z*INT(RND(0)*3) 

2030 CX-BX:CY-BY:BW=(BB-B-BY*80):BZ=YY-(I 
NT(YY/80))* 80 

2040 IFZ=OORZ=2THENCY=CY+(BB>(J+39))-(J>( 
BB+39)) 

2050 IFZ*l0RZ=2THENCX*CX+(BZ<BW)-(BZ>BW) 
2060 P-PEEK(B+CX*2+CY*80) 

2070 IF(P< >33ANDP< >42)OR(CY<0ORCY>10)OR(C 
X*0ANDCY=0)THENl500 
2080 BB“BX*2+BY* 80+B: BX*CX : BY*CY 
2090 POKEBB,42 :POKEBB+1,43 :POKEBB+40,44 :P 
OKEBB+41,45 

2100 BB-BB-1024:POKEBB,2:POKEBB+1,2:POKEB 
B+40,2 :POKEBB+41,2 
2110 BB=BX*2+BY*80+B: BC*BB-1 0 24 
2120 POKEBB,30:POKEBB+1,31 :POKEBC,6:POKEB 
C + 1 ,6 

2130 IFP-33THEN3000 
2140 GOTO!500 
3000 ME=ME-1 

3020 FORAA*700T0300STEP-50: SOUND3,AA,8 

3030 FORBB= 7TO0:VOLBB:NEXT 

3040 VOL8:NEXT:VOL8 

3050 IFME=0THEN8000 

3060 IFPEEK(YY+B)«30THEN1260 

3070 GOTO1320 

3500 FORI*QT03112STEP-1:POKEI,32 :SC“SC+10 


0 

3510 PRINT"{BLK}{CLR}SCORE"SC:CHAR,16,0," 
LIFÉ":PRINTME:CHAR,25,0,"RECORD":PRI 
NTHS 

3520 SK=SK+2:V*V-1:IFV<lTHENV=1 
3530 CHAR,15,7,"{FLASH ON}{<7>}B O N U S 
{BLK}" 

3540 RESTOREI 2000: AA=1 : DOUNTILAA*0 
3550 READAA,BB:SOUND1,AA,BB:LOOP 
3580 FORI*3952TO3990STEP2:POKEI,38 :POKEI- 
1024,0:NEXT 

3590 FORI-3953T03991STEP2:POKEI,39:POKEI- 
1024,0 :NEXT 

3600 FORI = 3992TO4030STEP2:POKEI,40 :POKEI- 
1024,0:NEXT 

3610 FORI-3993TO4031STEP2:POKEI,41 :POKEI- 
1024,0:NEXT 

3620 X*INT(RND(0)*20):II-3952+X*2 
3630 POKEI1,27:POKEII + 1,28:POKEII+40,32:P 
OKEII+41,29 

3640 11*11-1024:POKEI1,2:POKEI1 + 1,7 :POKEI 
1+41,7 

3650 YY=0:CHAR,2,1,"<P> PER PARTIRE E <S> 
PER SCENDERE" 

3670 GETZ$:IFZ$<>"P"THEN3670 
3680 CHAR,15,7,"{ 9 SPAZI}":TI$»"000000": 
Z$="":L-0 

3690 W=YY+B:POKEW,32:POKEW+1,32:POKEW+40, 
32 :POKEW+41,32 

3700 YY=YY+2:L-L+1:IFL>19THENL=0:YY-YY+40 

3710 W=YY+B:P«PEEK(W):IFP-32THEN3730 
3720 GOTO3800 

3730 POKEW,33:POKEW+1,35:POKEW+40,36:POKE 
W+41,37 

3740 GETZ$:IFZ$<>"S"THEN3690 
3750 POKEW,32:POKEW+1,32:POKEW+40,32:POKE 
W+41,32 

3760 W=W+80:P=PEEK(W) 

3770 POKEW,33:POKEW+l,35:POKEW+40,36:POKE 
W+41,37 

3780 IFP=32THEN3750 
3800 IFP=38THEN3900 

3810 Ri=VAL(TI$):Rl = 30-Rl:Rl=Rl*2*SK:SC=S 
C+31 

3820 PRINT"{HOME}{ 6 DES}"SC:CHAR,2,1," 

{ 8 SPAZI}[<7>]PERFETTO{ 2 SPAZI}BON 
US":PRINTRl"{SIN}{ 9 SPAZI}" 

3840 RESTOREI 2000 :AA=1:DOUNTILAA=0 
3850 READAA,BB:SOUND1,AA,BB:LOOP 
3860 GOTO1000 

3900 ME=*ME-1 : CHAR ,2,1 , " { 11 SPAZI} 

{FLASH ON}{RED}V PECCATO VV 
{ 7 SPAZI}{BLK}I 8 SPAZI}^ 

3910 FORAA*700T0300STEP-50:SOUND3,AA,8 

3920 FORBB-7TOO:VOLBB:NEXT 

3930 VOL8:NEXT:VOL8 

3940 FORI*ITO500:NEXT 

3950 IFME*0THEN8000 

3960 GOTOIOOO 
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Box 


COMMODORE 16 


Come i modelli precedenti (VIC 20 e C 
64), anche i nuovi arrivati in casa Com¬ 
modore hanno la possibilità di modifi¬ 
care i set dei caratteri. Non ci sofferme¬ 
remo su come viene creato un nuovo 
carattere, in quanto l'argomento è stato 
più volte trattato sulle pagine della rivi¬ 
sta rispetto sia ai Commodore (non ulti¬ 
mo nell'articolo Space Travellerd\ Giu¬ 
liano Peritore apparso sul numero 23) 
che ad altri personal (il procedimento è 
del tutto simile), ma spiegheremo come 
trasferire i set originari della RAM per 
poi modificare i caratteri che interessa¬ 
no. 

La gestione delle periferiche nel C 16 e 
Plus 4 è affidata ad un chip specifico 
chiamato "TED". Tale chip ha inoltre la 
funzione di selezionare i vari banchi di 
memoria a seconda di come si sta utiliz¬ 
zando la macchina (si veda infatti come 
per il Plus 4 la RAM disponibile all'utente 


per i propri programmi in BASIC è di 60 
Kbyte nonostante la ROM del sistema - 
BASIC e operativo - occupi 32 Kbyte e il 
micro 7501 che governa il personal è un 
otto bit con la possibilità, pertanto, di 
indirizzare solo 64 Kbyte di memoria). 
Fra i diversi registri del suddetto chip 
ve ne sono due che si occupano di indi¬ 
rizzare il generatore dei caratteri. Il pri¬ 
mo registro FF12 (decimale 65298) sele¬ 
ziona da quale banco di memoria il si¬ 
stema dovrà prendere la tabella dei ca¬ 
ratteri; il secondo FF13 (decimale 
65299) da quale punto della memoria 
scelta, inizia tale tabella. 

Se eseguiamo: 

PRINT PEEK (65298),:PRINT PEEK 
(65299) 

otterremo i seguenti valori: 

4 208 

che indicano: 


• 4: è la tabella dei caratteri che deve 
essere presa dalla ROM; 

• 208: la locazione d'inizio di tale tabella 
è alla pagina 208 (ricordiamo che il 
7501, come il capostipite microproces¬ 
sore 6502, indirizza la memoria in pagi¬ 
ne) o alla locazione D000 (decimale 
53248). 

Se desideriamo che i caratteri vengano 
presi dalla RAM a partire per esempio 
dalla locazione 3C00 (decimale 15360), 
vedremo più avanti come fare, dovremo 
eseguire: 

POKE 65298,0 (lo zero indica che la ta¬ 
bella dei caratteri deve essere presa 
dalla RAM) 

POKE 65299,60... a partire dalla pagina 
60 - locazione 3C00 o 15360 decimale). 

A questo punto qualcuno avrà sicura¬ 
mente provato le suddette istruzioni e, 
come risultato, avrà ottenuto la scom- 


Segulto listato Box. 

4000 GX»L:GY»INT(YY-L*2)/80:AA=20 
4010 HZ»HX*2+HY*80 
4020 IFHX»GXANDHY=GYTHEN4500 
4030 HZ“HZ+B:POKEHZ,32:POKEHZ+1,32 :POKEHZ 
+40,32:POKEHZ+41,32 
4040 IFHY<GYTHENHY=HY+1 
4050 IFHX>GXTHENHX=HX-1 
4055 AA=AA+25:SOUND3,AA,5 
4060 IFHX<GXTHENHX=HX+1 
4070 IFHY>GYTHENHY=HY-1 
4080 HZ»HX*2+HY*80+B 

4090 POKEHZ,46:POKEHZ+1,47:POKEHZ+40,58:P 
OKEHZ+41,59 

4100 HZ-HZ-1024:POKEHZ,0:POKEHZ+1,0:POKEH 
Z+40,0:POKEHZ+41,0 
4110 AA=AA+25:SOUND3,AA,5 
4120 GOTO4010 

4500 TX=INT(RND(0)*20):TY=INT(RND(0)* 11) 
4510 IFTX*GXANDTY=*GYTHEN3500 
4520 C“B+TY*80+TX*2:E“«C-1 024:HY*TY:HX=TX: 
BT-34 

4530 SOUND3,10,80 

4540 FORCC=12T04STEP-1:COLORO,CC:FORDD-lT 
030 :NEXTDD,CC 
4550 COLOR4,11 : COLORO,11 

4555 FORI = 4037TO40 71 :POKEI,0:POKEI-1024,4 
:NEXT 

4560 POKEC,46:POKEC+1,47:POKEE,0:POKEE+1, 
0 

4 570 POKEC+40,58 :POKEC+41,59 :POKEE+40,0 :P 
OKEE+41,0 

4580 HH^YY+B:POKEHH,33:POKEHH+1,35:POKEHH 


+40,36:POKEHH+41,37 

4590 HH=HH-1024 :POKEHH,6 :POKEHH+1,6:POKEH 
H+40,6:POKEHH+41,6 
4600 ME=ME-1:CHAR,20,0,"":PRINTME 
4610 IFME-0THEN8000 
4620 RETURN 

8000 PRINT"{BLK}{CLR}SCORE"SC:CHAR,16,0," 
LIFE":PRINTME:CHAR,25,0,"RECORD":PRI 
NTHS 

8010 CHAR,11,7,"{FLASH ON)[<7>]G A M E 
{ 4 SPAZI}0 VER {BLK}" 

8020 IFSC<“HSTHEN8050 

8030 HS=SC:CHAR,31,0,"{FLASH ON}":PRINTHS 
"{FLASH ON}" 

8040 CHAR,8,10,"HAI FATTO IL NUOVO RECORD 

n 

8050 CHAR,5,12,"PREMI <RETURN> PER ALTRA 
GARA" 

8060 Z$ = "": RESTOREI3000:DOUNTILZ$*CHR$(13 

) 

8070 READAA,BB:IFAA»0THENRESTOREl3000:GOT 
08070 

8080 SOUND1,AA,BB:GETZ$ 

8090 LOOP:GOTO990 

9000 J=XX+B:POKEJ,32 :POKEJ+1,32 :POKEJ+40, 
32 :POKEJ+41,32 

9010 L=INT(RND(0)*20) :K = INT(RND(0)* 1 1 ) 
9020 YY=L*2+K*80:XY=PEEK(YY+B) 

9040 IFXY»32THEN9010 

9050 FORI = 550TO350STEP-1:SOUNDl,1,1 :NEXT 
9060 Ri=L:R=L:RETURN 

10000 DATAI 60,0, 1 85,0,208,1 53,0,60,1 85,0, 
209,153,0,61,185,0 

10010 DATA210,153,0,62,185,0,211,153,0,63 
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COMMODORE 16 


Seguito llttato Box. 

,24,136,208,228,96 

10020 DATA55,255,255,255,255,255,255,255, 
0,60,36,36,60,36,36,0 

10030 DATA0,56,36,36,56,36,56,0,0,60,32,3 
2,32,32,60,0 

10040 DATA0,56,36,36,36,36,56,0,0,60,32,3 
2,56,32,60,0 

10050 DATA0,60,32,32,56,32,32,0,0,60,32,3 
2,44,36,60,0 

10060 DATA0,36,36,36,60,36,36,0,0,56,16,1 
6,16,1.6,56,0 

10070 DATA0,60,8,8,8,8,48,0,0,36,40,48,48 
,40,36,0 

10080 DATAO, 32,32,32,32,32,56,0,0,66,102, 
90,66,66,66,0 

10090 DATAO,66,98,82,74,70,66,0,0,60,36,3 
6,36,36,60,0 

10100 DATAO, 60,36,36,60,32,32,0,0,126,66, 
66,74,70,126,0 

10110 DATAO, 60,36,56,48,40,36,0,0,60,32,3 
2,60,4,60,0 

10120 DATAO,56,16,16,16,16,16,0,0,36,36,3 
6,36,36,60,0 

10130 DATAO, 68,68,40,40,16,16,0,0,68,68,8 
4,84,40,40,0 

10140 DATAO,40,40,16,16,40,4 0,0,0,34,3 4,2 
8 8 8 8 0 

10150 DATAO,' 60,4,8,1 6,32,60,0,0, 1 ,3,7,1 5, 
7,3,1 

10160 DATAI 28,1 28,1 28,1 28,1 28,1 28,1 28,1 28 
,128,128,128,128,128,128,128,0 

10170 DATA63,80,212,80,76,3,4,8,240,40,17 
2,40,200,0,128 

10180 DATA72,0,0,0,0,0,0,0,0,7,8,10,8,8,1 
1,72,39,0,0,0,0,0,0,0,0 

10190 DATA224,16,80,16,16,208,18,228,17,1 
5 3 3 3 3 2 

10200 DATAI2,136,240,192,192,192,192,64,4 
8,7,8,10,16,17,20 

10210 DATAI 9,8,224,16,80,8,1 36,40,200,16, 
196,243,15,3,3,12,240 

10220 DATAI 9 2,35,207,240,1 92,192,48,1 5,3, 
0,0,0,0,31,31 

10230 DATA63,63,0,0,0,0,254,254,250,250,6 
3,127,127,255,255 

10240 DATAI 28,1 28,2 55,244,244,232,2 32,208 
,80,96,224,3,4,2,1,7 

10250 DATA31,63,63,196,56,0,128,224,248,2 
52,252 

10260 DATAO,60,36,36,36,36,60,0,0,8,24,8, 
8,8,28,0 

10270 DATAO, 60,4,4,60,32,60,0,0,60,4,4,28 
,4,60,0 

10280 DATAO, 32,40,40,60,8,8,0,0,60,32,32, 
60,4,60,0 

10290 DATAO,60,32,32,60,36,60,0,0,60,4,4, 
8 , 8 , 8 , 0 

10300 DATAO, 60,36,36,60,36,60,0,0,60,36,3 


6,60,4,4,0 

10310 DATA63,63,63,63,63,31,15,7,252,252, 
252,252,252,248,240,224 
10320 DATA6,60,64,126,2,126,64,126 
11000 DATA596,8,704,7,1023,1,704,8,739,8, 

770.8.704.8.770.8.739.8 

11010 DATA596,8,704,7,1023,1,704,8,739,8, 
770,8,704,8,685,16 

11020 DATA704,8,1023,1,704,7,739,8,770,8, 

784.8.770.8 

11030 DATA739,8,704,8,685,8,596,8,643,8,6 

85.8.704.7 

1 1 040 DATAI 02 3,1 ,704,16,643,8,685,8,643,8 
,596,8,643,8,685,8 

1 1050 DATA70 4,8,643,8,596,8,643,8,596,8,5 

44.8.516.8 

11060 DATA596,16,643,8,685,8,643,8,596,8, 

643.8.685.8.704.8 

11070 DATA643,8,596,8,704,8,685,8.739,8,7 
04,7,1023,1 

11080 DATA704,16,1023,1,0,0 

12000 DATA596,8,571,8,596,8,643,8,596, 

810.8.798.8.810.8 

12010 DATA834,8,810,24,596,8,1023,1,59 
2,1023,1 

12020 DATA596,8,643,8,685,16,704,16,10 

1 , 0,0 

13000 DATA596,12,704,24,1023,1,704,11, 
3,1,704,11 

13010 DATA685,12,643,12,685,12,704,12, 

,24 

13020 DATA596,12,704,24,1023,1,704,11, 
3,1,704,11 

13030 DATA685,12,643,12,685,12,704,12, 

,24 

13040 DATA770,12,810,12,784,12,770,24,685 
,12,739,12,704,12,685,12 
13050 DATA704,12,685,12,643,12,596,12,571 
,12 

13060 DATA596,12,571,12,516,24,1023,1,0,0 

60000 POKE65298,4 :POKE65299,208:PRINT" 
{CLR}":END 
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stx-80 

LA SILENZIOSA 

Li più piccoli delti finititi. 

Star, grande nel sodditfare 
le vostre esigenze. 

Termica e quindi silenziosissimo, con 60 
caratteri al secondo, bidirezionale e 
grafica ti accompagnerà con la sua 
discrezione nei tuoi grandi momenti. 

Stx-80. La più piccoli grande stampante amica. 



Star SC^IO 
L’ECONOMICA 

Erede della Gemini 10X, la Star piu venduta 
Buon sangue non mente! Le novità ? 

NLQ, IBM PC compatibile da DIP switch, 
spaziatura proporzionale, ancor più veloce. 
Ma una cosa rimane invariata: 
il rapporto prezzo/prestazioni. 
Semplicemente il migliore. 

Star SG-10. Per stampare in economia. 


Star Sa JS 

LA PROECONOMICA 

Per non rinunciare all’economia 

mantenendo la qualità. 

136 colonne facili e complete con tutte 
le novità della piccola SG-10. 

16 Kbyte di buffer per aumentare la vostra 
produttività e quella del vostro computer. 
Star SO 15. Qualità e prezzo su 136 colonne. 


Star SOIO 

LA STELLA DELLA QUALITÀ’ DI STAMPA 
Selezione dei vari set di caratteri con 
DIP switch facilmente accessibili. 

Dump esadecimale. 

Stampa normale e professionale (NLQ) 2K buffer. 
Thruput migliorato del 20% 
rispetto ai modelli precedenti. 

Star SD-10. Qualità alla portate di tutti. 





Star SO 15 

LA STELLA NELLE LARGHE 
PROFESSIONALI 

tdantiene tutte le caratteristiche 
dell'SO 10 su formato largo. 

160 caratteri al secondo 
ed un buffer di 16 Kbyte. 

SD-15 non vi pianta mai in asso. 
Prestazioni a tutta larghezza. 



Star SR IO 

LA PROFESSIONISTA 
200 caratteri al secondo, near letter. 
quality. selezione dei set di caratteri e 
formati da DIP switch di facile accesso, 
caratteri proporzionali, possibilità di 
programmare 240 caratteri a vostro 
piacimento, caricamento automatico 
di fogli singoli. Fatti che contano. 

Star SRIO. La professionista. 


Star SR 15 

PROFESSIONISTA MULTIFUNZIONALE 
DI LARGO FORMATO 
Il buffer di 16 Kbyte è solo una delle 
tante caratteristiche di completezza della 
macchina più prestigiosa della famiglia 
con tutte le prestazioni della SR-10. 

La nuova qualità nella stampa. 

Star SR-1S. La seria professionista. 


Power- Type 
LA PERFEZIONISTA 

La nuova stampante a margherita della Star. 
Power- Type vi dà una corrispondenza 
da professionista. 

Velocità: 18 caratteri al secondo. 

Oltre 100 set di caratteri tra cui scegliere. 
Power-Type. La dattilografa perfetta. 
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parsa della videata con la presenza di 
strani caratteri sullo schermo. 

Questo perché: primo, la RAM è vuota 
e non contiene alcuna tabella dei carat¬ 
teri; secondo, bisogna proteggere lo 
spazio da dedicare alla tabella dei ca¬ 
ratteri in modo che non venga mano¬ 
messa dalla variabile del programma. 
Per quanto riguarda quest'ultimo pro¬ 
blema, i puntatori di fine RAM e inizio 
variabili sono gli stessi del VIC 20 e C 64 
e l’utilizzo per adibire la parte alta della 
RAM lo si può vedere nella riga 100 del 
programma. 

Per quanto riguarda invece il riempi¬ 
mento della RAM con la tabella dei ca¬ 
ratteri si può invece procedere in due 
modi diversi: 

• creare una nuova tabella; 

• trasferire quella già esistente nella 
ROM e poi modificare parte dei caratteri 
in base alle proprie esigenze. 

Nel primo caso non esiste alcun proble¬ 
ma: basta inserire i codici dei caratteri 
che formeranno la tabella in linee Data 
e quindi trasferirli nella RAM con l’istru¬ 
zione Poke mediante un ciclo For-Next 
(si veda a tal riguardo il ciclo nelle linee 
160/170 che provvede a creare ex novo i 
primi 60 caratteri del set, i cui codici 
sono contenuti nelle linee Data da 
10020 a 10320). 

Questa soluzione è utile se dobbiamo 
modificare totalmente il set dei caratteri 
(ad esempio vogliamo avere l'alfabeto 
greco), ma risulta scomoda se abbiamo 
bisogno di modificare solo alcuni dei 
caratteri del set, in quanto ci impone di 
ritrascrivere la quasi totalità di ciò che, 
di fatto, è già disponibile nella ROM con 


conseguente allungamento del pro¬ 
gramma che, in alcuni casi, potrebbe 
creare addirittura problemi di memoria 
(basti infatti pensare che un set è com¬ 
posto da 128 caratteri che equivalgono 
a 1.024 codici Data con una occupazio¬ 
ne di circa 3 Kbyte di memoria). 

Se optiamo invece per trasferire il set 
originario contenuto nella ROM, nasco¬ 
no dei problemi. 

L'architettura interna del C 16 è fatta in 
modo tale che l'istruzione BASIC Peek 
non è operante nella ROM e, pertanto, 
ci è impossibile leggere la tabella dei 
caratteri ivi contenuta per trasferirla 
nella RAM. 

Tale operazione può essere invece ese¬ 
guita utilizzando il linguaggio macchi¬ 
na. 

Per far ciò si può utilizzare il Monitor già 
inserito nel computer, che consente di 
avere a disposizione diverse istruzioni 
con cui operare con il linguaggio mac¬ 
china (si veda tra l’altro l'articolo / Mo¬ 
nitor del C 16 e Plus 4" apparso sulla 
rivista SuperCommodore di Aprile 85). 
L’istruzione occorrente alle nostre esi¬ 
genze è la Transfer ed i relativi comandi 
da eseguire sono: 

T D000 D3FF3C00(RETURN) 

X (RETURN) 

L'istruzione "T" (Transfer) vi consente 
di trasferire un blocco dati da una zona 
della memoria ad un'altra. 

Deve essere seguita (in notazione esa- 
decimale) dall’indirizzo della locazione 
di partenza del blocco da trasferire, 
quindi dall'indirizzo della locazione fi¬ 
nale del blocco ed infine dall'indirizzo 


della prima locazione della zona di me¬ 
moria ricevente i dati. Non occorre l’in¬ 
dirizzo finale di quest'ultima zona, in 
quanto il computer provvede a calco¬ 
larlo automaticamente dalla differenza 
fra i primi due indirizzi. 

Con la successiva istruzione "X” si ri¬ 
torna al BASIC e quindi si può attivare il 
generatore con le istruzioni riportate in 
precedenza. 

Questo sistema, che ha una notevole 
velocità di esecuzione rispetto ad una 
corrispondente routine in BASIC, ha pe¬ 
rò come svantaggio il fatto che deve 
essere eseguito in modo diretto prima di 
dare il Run al programma e, se per caso 
ve ne dimenticate, avrete dei malfunzio¬ 
namenti indesiderati. 

La possibilità che tale operazione sia 
inserita ed effettuata direttamente dal 
programma è invece molto più comoda 
e funzionale, in quanto basterebbe cari¬ 
care il programma desiderato, digitare il 
Run ed averlo già pronto all'uso senza 
incorrere nel rischio di una eventuale 
dimenticanza. 

A fronte di ciò si è creata una routine in 
linguaggio macchina, il cui disassem¬ 
blato è illustrato nella figura 1 che, inse¬ 
rita aH’interno del programma, effettua 
le istruzioni del Monitor in precedenza 
illustrate. 

Il listato è particolarmente lungo ed 
occupa quasi 9 Kbyte di memoria, di 
conseguenza sono state omesse le Rem 
esplicative. Per una maggior compren¬ 
sione dello stesso, vengono riportati, di 
seguito, i REMarks. 

REMarks 

100-150- Vengono modificati i puntatori 
di fine RAM in modo da creare lo spazio 
per il set di caratteri da trasferire dalla 
ROM e la modifica di parte di essi. Viene 
inserita nelle locazioni da 1000 a 1030 e 
successivamente lanciata la routine in 
linguaggio macchina per il suddetto 
trasferimento. 

Quindi viene attivato il generatore di 
caratteri. 

160-170 - Ciclo che provvede a modifi¬ 
care gran parte dei caratteri i cui codici 
sono contenuti nelle linee Data da 
10020 a 10320. 

180-770 - Presentazione del gioco. 

990 - Variabili iniziali di ogni gara. 
1000-1330 - Creazione a video del cam¬ 
po di gioco. 


Figura 1 - Dlsassemblato della routine In linguaggio macchina per il trasferimento del 1° set di 
caratteri dalla ROM alla RAM. 


DECIMALE 


ESADECIMALE 

Locazione 

Codici 

Locazione 

Codici 

Codice operativo 

1000 

160 0 

03D8 

A0 00 

LDY # $00 

1002 

185 0 208 

03 DA 

B9 00 DO 

LDA SD000.Y 

1005 

153 0 60 

03DD 

99 00 3C 

STA $3COO,Y 

1008 

185 0 209 

03E0 

B9 00 DI 

LDA $D100,Y 

1011 

153 0 61 

03E3 

99 00 3D 

STA S3D00.Y 

1014 

185 0 210 

03E6 

B9 00 D2 

LDA SD200.Y 

1017 

153 0 62 

03E9 

99 00 3E 

STA S3E00.Y 

1020 

185 0 211 

03EC 

B9 00 D3 

LDA SD300.Y 

1023 

153 0 63 

03EF 

99 00 3F 

STA $3F00,Y 

1026 

24 

0402 

18 

DEY 

1027 

208 228 

0403 

DO E4 

BNE S03DA 

1030 

96 

0405 

60 

RTS 
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Box 

COMMODORE 16 


Prima della visualizzazione del vostro 
uomo e del folletto delle scatole una 
breve pausa musicale vi consentirà di 
studiare il campo. 

1500-1960 - Ciclo principale con il movi¬ 
mento dell'uomo e i test che controllano 
se lo stesso ha urtato un teschio o è 
stato catturato dal folletto, nel qual ca¬ 
so viene rimandato alla routine alle li¬ 
nee 3000 per la perdita della vita, o se è 
stata raccolta una bandierina o disin¬ 
nescata la bomba. 

2000-2140 - Viene decrementato il tem¬ 
po a disposizione, controllo se tale tem¬ 
po è scaduto, e viene mosso il folletto 
delle scatole. 

3000-3070 - Perdita del vostro uomo. 
3500-3960 - Fase del Bonus nella quale 
dovrete aiutare l'uomo a scendere sulla 
bandierina racchiusa dai teschi. 
4000-4620 - Routine chiamata quando il 
tempo a disposizione è scaduto, nella 
quale si assiste allo scoppio della bom¬ 
ba, alla perdita del vostro uomo ed alla 
ricomparsa dell'ordigno in un altro pun¬ 
to dello schermo. 

8000-8090 - Fine gioco a seguito della 
perdita di tutti e tre gli uomini a disposi¬ 
zione e richiesta di altra gara. 
9000-9060 - Routine che effettua il salto 
con la molla. 

10000-10010 - Data con i codici del lin¬ 
guaggio macchina della routine per il 
trasferimento del set dei caratteri (routi¬ 
ne disassemblata nella figura 1). 
10020-10320 - Data contenente i codici 
dei nuovi caratteri. 

11000-11080 - Data contenente i codici 
musicali del motivo suonato prima del¬ 
l’inizio della gara che vi consente di ave¬ 
re un attimo di pausa e studiare il cam¬ 
po di gioco. 

12000-12020 - Data contenenti i codici 
musicali del Bonus. 

13000-13060 - Data contenente i codici 
musicali del motivo suonato in sede di 
presentazione e di fine gioco. 

60000 - Il gioco può essere fermato sola¬ 
mente premendo il tasto Stop nel qual 
caso l’istruzione Trap nella riga 500 ri¬ 
manda a questa linea che provvede a 
risistemare i registri del “TED" in modo 
che i caratteri vengano ripresi dalla 
ROM. ■ 



SYSTEMS TECHNOLOGY INSTITUTE 

PRESENTA 

I PRIMI DUE SEMINARI IN ITALIA 

MILANO - Palazzo delle Stelline - C.so Magenta, 61 

21 OTTOBRE 1985 

NUOVI SVILUPPI NELLA TECNOLOGIA 
DEI SOFTWARE SYSTEMS 


H.P. ARTIS* 

Morino Associates 

J. P. BUZEN* 

BGS Systems 

D. FERRARI 

University ol California 
Berkeley 

K. SEVCIK* 

University of Toronto 


Sistemi Esperti per il controllo delle 
prestazioni dell'MVS 

Nuovi sottosistemi di I/O IBM 
Berkeley UNIX: un futuro distribuito 


Strumenti per la previsione delle prestazioni 
di un data base 


28-30 OTTOBRE 1985 

NETWORKING: LE RETI DI CALCOLATORI 
E LE LORO APPLICAZIONI 


D. FERRARI 

University ol California 
Berkeley 


Tecniche per la trasmissione dei dati e 
mezzi di comunicazione, aspetti fisici di una 
rete 

• Analisi delle prestazioni di una rete 

• Architetture di rete e protocolli di 
comunicazione 

• Il traffico di una rete e il suo controllo 

• Reti Locali e loro applicazioni 

• Analisi di reti esistenti: SNA, DECNET, 
Arpanet, Ethernet 

* E' prevista la traduzione simultanea in Italiano 

per informazioni rivolgersi a: 

SYSTECH - SYSTEMS TECHNOLOGY INSTITUTE 
Via Luigi Sacco, 4 - 20 ì 46 Milano - Telefono 02/481 Z//Ó 


I 








Scopa 
a tre carte 

Ecco la versione per Apple 
di un programma 
che ha già riscosso grande successo 

di Emilio Chiave 


N ei numeri di Agosto/Set¬ 
tembre e Ottobre 1984 di Per¬ 
sonal Software, sono appar¬ 
si due articoli di Stefano Gua- 
rinelli che presentavano ai lettori un in¬ 
teressantissimo programma di Scopa a 
tre carte per Commodore 64. 

Essendo abbastanza appassionati di 
questo gioco e possedendo un Apple 
Ile, si è deciso di adattare il programma 
a tale computer e di presentarlo a colo¬ 
ro che si trovassero nelle medesime 
condizioni. 

Ci congratuliamo innanzitutto con 
Stefano Guarinelli per l’ottima imposta¬ 
zione del programma che, alla prima 
stesura, ha funzionato egregiamente. 
Abbiamo tuttavia apportato alcune mo¬ 
difiche che hanno permesso di utilizza¬ 
re la grafica ad alta risoluzione e di 
allargare il programma ad un'intera 
partita di Scopa (a 11, 16 o 21 punti) 
anche se ciò ha comportato la suddivi¬ 
sione del programma in più parti. 

Il listato è infatti suddiviso in quattro 
sezioni: la prima, in linguaggio macchi¬ 
na, imposta i caratteri per i messaggi e il 
disegno delle carte. 

Le altre tre parti, in BASIC, riguardano 
rispettivamente la presentazione del 
programma, il programma principale di 
gioco ed infine il calcolo dei punti. 

A proposito di quest’ultima parte, se¬ 
gnaliamo una modifica alla routine di 
calcolo della primiera. 

Nel programma originale e solo in al¬ 
cuni casi, il conteggio della primiera ap¬ 
pariva errato: infatti nella trasformazio¬ 
ne delle carte alle linee 28400-28500, 
venivano assegnati i seguenti valori di 
primiera: 

7 =7 punti 

6 =6 punti 

Asso = 5 punti 

5 =4 punti 

4 =3 punti 

3 =2 punti 

2 = 1 punto 

Figure =0 punti 

mentre il calcolo della primiera richiede 
i seguenti valori: 

7 =21 punti 

6 = 18 punti 

Asso =16 punti 

5 =15 punti 

4 =14 punti 

3 =13 punti 
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2 =12 punti 

Figure = 10 punti 

Tale differenza portava ad assegnare 
erroneamente il punto primiera - ad e- 
sempio nel caso di tre 7 e un 5 (totale 
punti nel sistema originale 25 e nel siste¬ 
ma modificato 78) a confronto con un 7 
e tre 6 (totale punti nel sistema originale 
25 e nel sistema modificato 75) il pro¬ 
gramma originale dava parità mentre il 
punto doveva essere assegnato al pri¬ 
mo caso. 

Abbiamo pertanto provveduto, senza 
modificare eccessivamente l'imposta¬ 
zione originale del programma, ad as¬ 
segnare alle carte i nuovi valori. 

Nella descrizione del listato che segue 
ci limitiamo a fornire brevi spiegazioni 
delle sole parti da modificare, lasciando 
alle ottime ed esaurienti pagine di Stefa¬ 
no Guarinelli il compito della descrizio¬ 
ne tecnica del programma. 

Shape 1 

L’introduzione dei dati del programma 
in linguaggio macchina è relativamente 
semplice anche se l'operazione richiede 
attenzione onde evitare errori. E suffi¬ 
ciente digitare Cali—151 per entrare in 
Monitor e, partendo dalla locazione e- 
sadecimale 6000, digitare uno dopo l’al¬ 
tro (separati da spazi) i codici riportati 
nel listato (esempio 6000:32 28 4C 55 29 
DO 30 C4 32 38 35...). 

Ricordiamo tuttavia che non è possibile 
inserire tutti i codici in una volta, parten¬ 


do dall’indirizzo iniziale. Quindi, anche 
per evitare errori di battitura, consiglia¬ 
mo di inserire il primo indirizzo (6000) 
con le tre righe di codici che seguono; 
quindi inserire l’indirizzo della quarta 
riga (6018) con le successive tre righe di 
codici e così via. 

Una volta terminato l’inserimento, po¬ 
trete salvare la routine con il comando 
Bsave Shapesl, A$6000, L$06E7. 

Scopai - Presentazione 

10 - Il programma imposta inizialmente 
Lomem a 26350 per proteggere il secon¬ 
do schermo ad alta risoluzione e il pro¬ 
gramma in linguaggio macchina. 

30-80 - Vengono definite alcune variabi¬ 
li che dovranno essere successivamen¬ 
te trasferite al programma Scopa2. In 
particolare B1, B2 e B3 indicano le loca¬ 
zioni di memoria rispettivamente per i 
caratteri, le carte e i semi. 

TT(1) e TT(2) contengono i punteggi 
totali accumulati durante la partita e KK 
i valori interni delle carte (letti alla riga 
670). 

200-320 - Inserimento del nome del gio¬ 
catore. Devono essere usati solo carat¬ 
teri maiuscoli. In caso contrario viene 
emesso un segnale sonoro (Print e- 
quivale a Chr$(7)). 

330-410 - Scelta del punteggio della 
partita. 

430-450 - Queste istruzioni hanno lo 
scopo di modificare inizialmente il risul¬ 
tato di Rnd che, altrimenti, rischierebbe 
di distribuire carte sempre uguali all’ac- 
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censione del computer. Ciò è ottenuto 
combinando i codici ASCII del nome 
con il punteggio prescelto. 

460-490 - Disegno del tavolo verde, del 
nome del concorrente, del nome "Ap¬ 
ple" e del punteggio della partita. 
500-590 - In questa sezione si apre un 
(ile per memorizzare le variabili da tra¬ 
sferire a Scopa2 

630 - Definizione dei puntatori per i mes¬ 
saggi e i disegni delle carte. 

650 - Subroutine per il disegno dei mes¬ 
saggi. 

670 - Valori interni delle carte. 

Scopa2 - Programma principale 

10-390 - In questa prima parte del pro¬ 
gramma si ripetono con piccolissime 


variazioni, dovute alla differente grafi¬ 
ca, le medesime operazioni del pro¬ 
gramma originale (mescolamento carte 
e conversione numerica). 

400-460 - Vengono verificate le condi¬ 
zioni di cambio mazzo alla fine di ogni 
manche. Inizialmente, con TT(1) e TT(2) 
uguali a 0, il mazziere è il computer. 
780-800 - Vengono disegnate le 10 lette¬ 
re (A/B/C-T/U/V/W/X/Y/Z) che contras¬ 
segnano le carte. 

810-930 - Vengono disegnate le carte 
coperte dei giocatori e del piatto. 
940-990 - Questa subroutine è usata per 
la grafica del mescolamento carte. 
1000-1030 - Subroutine per la stampa 
dei messaggi. 

1050-1060 - Subroutine per la cancella¬ 
zione dei messaggi. 


1080 - Definizione dei puntatori per i 
messaggi e i disegni delle carte. 

1190 - Inizia la partita. 

1270 - Viene disegnato un indicatore 
(un trattino) sotto la carta prescelta. 
1390 - Vengono analogamente dise¬ 
gnati degli indicatori sopra le carte pre¬ 
scelte per la presa. 

1510-1540 - Vengono cancellati i trattini 
di cui alle righe 1270 e 1390 dopo la 
giocata o in caso di errore. 

1550-1900 - Questo sottoprogramma 
ha il compito di selezionare attraverso 
le variabili Q ed R quale carta e quale 
seme debbano essere disegnati. 
3100-3160 - £ stata aggiunta questa su¬ 
broutine che disegna le carte prese sia 
dal giocatore che dal computer. A que¬ 
sto scopo viene effettuata una rotazio- 


Liitato 1 - La prasentaalone. 


10 LOMEWi 26350 
20 TEXT : HO* 

30 DIH KK(40),UP(4I),UXI41),6PI41>,6X141) 

« B1 = 24576: REM CARATTERI 

50 B2 = B1 + 1015: REH CARTE 

60 B3 = 82 ♦ 500: REM SEMI 

70 TT(1) = 0:TTI2) = 0 

80 F0R K = 1 T0 40: READ KK(K): ICXT 

90 R0T= 0: SCALE» li HCOLOR» 3:Di » CHHi (4) 

100 REM PRESENTAZIONE 

110 PR1NT DÌì‘BL0ADSHAPESl,A24576‘ 

120 H6R2 

130 SH = 31: 60SUB 630 

140 A» = ‘SCOPA A TRE CARTE‘:X « 75:Y = 75: 60SUB 650 
150 POR I = 1 T0 2000: *XT 
160 H6R2 

110 A» = ‘PR06RAWA 01 STEFANO 6UAR1ICLLI ‘ :X = 4fl:Y = 50: G0SU1 650 
180 A* = ‘ VERSICI* APPLE //C 01 E. CHIAVE 1 :* » 42:Y = 90: GOSUB 650 
190 F0R I = 1 TO 2000: *XT 
200 H6R2 

210 A» = ‘COME TI CHIAMI 1 *:X = 30:Y = 75: 60SU8 650 
220 NOI = ** 

230 X = 150 

240 DRAM 61 AT X,75 

250 GET Nt 

260 IF N* = CHRi (13) THEN 330 

270 IF ASC (Ni) < 65 OR ASC (Ni) > 90 OCN PRINT ••: 60T0 250 

280 DRAN ASC (Ni) - 31 

290 NO» » NO» Ni 

300 DRAM 60 

310 X » X + 7 

320 GOTO 250 

330 H6R2 

340 Ai » ‘SCEGLI IL FUNTEG6I0 DELLA PARTITA: ‘il » 10:Y = 60: GOSUB 650 

350 Ai » ‘Il 11 PCNT X‘:X = 60: V = 90: GOSUB 650 

360 Ai = *2) 16 PONTI*:* » 60:Y » ICO: GOSUB 650 

370 Ai » ‘31 21 PONTI*:l » 60:Y * 110: GOSUB 650 

380 GET Itti: IF ASC <m*> < 49 OR ASC (IMI > 51 DEM 380 

390 !F ASC ((Mi) = 49 T5CN PM = 10 


400 IF ASC (IM) * 50 T)CN PM = 15 

410 IF ASC (Rii) « 51 TON PM = 20 

420 Ai = 'ATTDffll UN ISTANTE.» 10:Y = 180: GOSUB 650 

430 FOR K = 1 T0 LEN (NOiKRt = Ni ♦ ASC > MIDi (N0M,1)>: «IT 

440 NN » Ri ♦ PM 

450 F0R K = 1 TO ROSS = RN> (1): «XT 

460 HCOLOft» l: F0R K = 31 T0 146: HPL0T 0.K T0 279,K: NEXT : HC0L0R» 3 
470 X = 30:Y = 10:Ai = N0i: GOSUB 650 
480 X = 190:At = ‘A P P L E‘: GOSUB 650 

490 X » 112:V = 0:AÌ = *A ‘ ♦ STRi (PM ♦ 1) ♦ • PLWT!‘: GOSUB 650 
500 REM MEMOR122AZ10IC DATI PER SCOPA,2 
510 PRINT Dii‘OPEN SCOPA.TXT* 

520 PRINT Dii‘URITE SC0PA.TXT* 

530 PRINT NOi 

540 PRINT Bl: PRINT B2: PRINT B3 
550 PRINT TT(I): PRINT TT(2) 

560 POR K = 1 10 40: PRINT <KIKI: !CXT 
570 PRINT PM 
580 PRINT IM 

590 PRINT Dii ‘(COSE SCOPA. TU' 

600 PRINT Dli‘RlNSC0PA.2‘ 

610 END 

620 REM PUNTATORI 

630 PONE 232,SH - INT (SH / 256) * 256: POME 233, INI (SH / 256): RETURN 
640 REM STAMPA MESSAGGI 

650 DRAM 61 AT X,Y: F0R I = 1 T0 LEN (Ai): DRAM ASC ( MIDi (At.l,l)ì - 
31 : DRAN 60: NEH : RETURN 
660 REM VALORI CARTE 

670 DATA 9,5,6,7,8,10,18,4,4,4,6,2,3,4,5,7,13,1,1,1,6,2,3,4,5,7,13,1,1 
,1,6,2,3,4,5,7,13,1,1,1 
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ne di 90° delle carte stesse. 

5570-5600 - Il sottoprogramma di asse¬ 
gnazione dei valori interni delle carte è 
stato abbreviato utilizzando il vettore 
KK che contiene già tutti i valori neces¬ 
sari. 

6750 - Viene indicata la Scopa sia con 


un messaggio visivo che con una serie 
di segnali sonori non visibili nel listato 
(Print “"). 

6760-6770 - Viene assegnata la Scopa 
alle apposite variabili ZS e YS ed inoltre 
viene disegnata, sovrapposta alle carte 
prese, la Scopa stessa. 


6790-6920 - In questa ultima fase si me¬ 
morizzano nell'apposito file le variabili 
necessarie al calcolo del punteggio e si 
inizializza Scopa3. 


segue a pag. 34 


Listato 2-11 programma principale. 

10 LONEN: 26350 

20 DI« KK(40).TT(2),PT(9),P2(9),UP(41),UX(41)i6P(41 
>,GXM1) 

30 D> = CHRi (4) 

40 PRINT Di; '0PENSC0PA.TXT* 

50 PRINT Dii* READSCOPA.TXT* 

60 INPUT N0Ì 

70 INPUT Bl: INPUT B2: INPUT B3 
80 INPUT TT(1): INPUT TT<2) 

90 F0R K = 1 T0 40: INPUT KKIK): NEXT 
100 INPUT PH 

110 INPUT IN 

120 PRINT Di;’ CL0SESC0PA.TXT' 

130 DIN HZI41),N1(41),UC(41),U6(41>,UB(4),U2(4> 

140 DIN 6C(4),62(4) 

150 DIN P9(9),PC(9),VF.(41) 1 NP(200),FN(50),PS(9),PE( 
9)iYU< 4) 

160 US = i:UH = 1:91 = 1 

170 MA = 1 

280 YS = 0:ZS = 0 

19C X) = 10:Y1 = 180 

200 G0SUB 1060 

210 REN MISCHIA CARTE 

220 Ai = ‘ORA DEVO MESCOLARE LE CARTE...’: GOSUB 101 
0: GOSUB 1040 

230 FOR I = 1 T0 6: GOSUB 950: NEXT 

240 Ai = 'ANCORA UN AITINO....': GOSUB 1010 
250 I = 0 

260 FOR C = 0 T0 40:VFIC) = 0: NEXT 
270 FOR C = 0 T0 10000 
280 IF FI > = 40 THEN 60T0 350 
290 RA = INT ( RND (1) * 41) 

300 IF RA = 0 THEN 330 

310 IF VF(RA) = 1 THEN 330 

320 Vf(RA) = l:l = I + 1:NZ(1) = RA:FI = FI + 1 

330 NEXT C 

340 REN CONVERSIONE NUMERICA 
350 FOR K = 1 T0 40 

360 N1IK) = VAL ( RIGHTi ( STRi (NZ(K)),D) 

370 IF N1(K) = 0 AND NZ(K) < > 0 THEN NKK) = 10 


380 NEXT K 
390 GOSUB 1040 
400 REN CAMBIO MANO 
410 IF TT(1) = 0 AM) TT(2) = 0 THEN 450 
420 IF IN - 0 THEN IN = UNN = 1:AÌ = 'ORA SEI TU D 
I MAZZO": GOSUB 1010: GOSUB 1040: GOTO 470 
430 IF IN = 1 THEN IN = 0:lti = 0:AÌ = 'ORA SONO IO 
DI MAZZO': GOSUB 1010: GOSUB 1040 
440 GOTO 470 

450 Ai = 'IL MAZZIERE SONO IO': GOSUB 1010: GOSUB 10 
40 

460 NN = 0:IN = 0 

470 FOR K = 1 TO 4:PT(K) = NZ(K):P2(K) = NKK): NEXT 
K 

480 QN = K 
490 REN 

5OC' IF NA > 6 THEN 6790 

510 IF NA = 1 THEN NA* = ' PRIMA MANO ' 

520 IF MA = 2 THEN NAi = ’ SECONDA MNO' 

530 IF NA = 3 THEN MA* = ' TERZA NANO 1 

540 IF NA = 4 THEN NA* = ’ QUARTA NANO ' 

550 IF NA = 5 THEN NAi = ' QUINTA NANO ' 

560 IF NA = 6 THEN MA* = ' ULTIMA NANO ' 

570 XI = 100:Y1 = 20 

580 REN CANCELLAZIONE "NANO' 

590 IF MA > l THEN HC0L0R= 0: FOR K = 20 TO 29: HPLOT 
90,K TO 190,K: NEXT : HC0L0R= 3 
600 A* = NAi: GOSUB 1010 
610 L = 1 

620 FOR K = QN TO QN + 2:6C(L) = NZ(K):62'(L> = NKK 
):L = L + l: NEXT K 
630 QN = K:J = 1 

o40 FOR K = QN TO QN + 2:UB(J) = MZ(K):U2(J> = NKK 
):J = J + K NEXT K 
650 QN = K:K = 3 
660 FOR { = 1 TO K 

670 IF 'JB(C) > (NT) AND (NT) < > 0 THEN 700 
680 IF UB(C) > 10 AND NT < > 0 THEN 70C 
690 NT = UBICKH = U2(C):IZ = C 
700 NEXT C 

710 ZC = UBIKKZI = U2(K) 

720 JB(K) = NT:U2(K) = fi 
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Seguito listato 2. 

73G UBtIZ) = ZC:U2!IZ) - Z! 

740 K = K - 1: NT = 0:HL = 0 
750 IF K > G THEN 660 
760 IF MA > 1 THEN 820 
770 SH = Bi: 60SUB 1080 
780 REM LETTERE CARTE 

790 HC0L0R= 3: FOP K = 1 T0 3: DRAM 61 AT (20 * K), 

20: DRAW (33 + K) : DRAM 6fl: NEXT 
800 FOR K ~ 1 TO 7: DRAW 61 AT ( (K - 1) * 30 + 48), 
150: DRAH (52 + K): DRAW 60: NEXT 
810 REM CARTE COPERTE 
920 SH = B2: GOSUB 1080 
830 FOR K = 14 to 54 STEP 20 
340 AA = PEEX ( - 16336CAA = PEEX ( - 16336) 

350 HCOLOR= 3: DRAW 1 AT K,35: HCOLOR= Q: DRAW 12 AT 

K + 2,37: NEXT 

860 FOR K = 200 TO 240 STEP 20 

370 AA = PEEK ( - 16336):AA = PEEK ( - 16336) 

880 HCOLOR= 3: DRAW 1 AT K,35: HC9L0R= 0: DRAW 12 AT 
K ♦ 2,37: NEXT 
890 IF MA > 1 THEN 1100 
900 FOR K = 42 TO 132 STEP 30 
910 AA = PEEK ( - 163.36):AA = PEEK ( - 16336) 

920 HCOLOR= 3: DRAW 1 AT K,120: HCOLOR= 0: URAW 12 AT 
K + 2,122: NEXT 
930 GOTO 1100 

940 REM DISEGNO MISCHIA CARTE 
950 Y = 10G:SH = B2: GOSUB 1080 
960 FOR X = IO TO 50 STEP 5: HCOLOR= 3: DRAW 1 AT X 
, Y: HCOLOR= 0: DRAW 12 AT X + 2,Y * 2 
970 SS = PEEK ( - 16336):SS = PEEK ( - 16336) 

980 NEXT 

990 FOR X = 10 TO 50 STEP 5: HCOLOR= l: DRAW 1 AT X 
,Y: NEXT : RETURN 
1000 REM STAMPA MESSAGGI 
1010 SH = Bl: GOSUB 1080 

1020 XDRAW 61 AT XI,Yl: FOR CH = i TO LEN (A*): XDRAW 
ASC ( MIDi (Ai, CH, 1)) - 31: XDRAW 60: fCXT 
1030 RETURN 

1040 FOR RI = 1 TO 1000: NEXT 
1050 REM CANCELLAZIONE MESSAGGI 
1060 HCOLOR= 0: FOR Y = 170 TO 191: HPLOT 0,Y TO 27 
9,Y: NEXT : RETURN 
1G70 REM PUNTATORI 

1080 POKE 232,SH - INT (SH / 256) * 256: POKE 233, 

INT (SH / 256): RETURN 
1090 REM DISEGNO CARTE 
1100 IF MA > 1 THEN 1150 


1110 FOR K = 1 TO 4 

1120 IF K > 4 THEN 1150 

1130 Z = PT(K):X = (K * 30) + 12:Y = 120 

1140 GOSUB 1560: NEXT 

1150 FOR K = 1 TO 3 

1160 IF K > 3 THEN 1200 

1170 Z = GC(K):X = <K - 1) * 20 + 14:Y = 35 

1180 GOSUB 1560: NEXT 

1190 CT = 1 

1200 ER = Q: IF CT > 3 AND IH = 1 T1€N 2070 
1210 IF NN = 1 THEN 2080 
1220 XI = 10:Yl = 180 
1230 HCOLOR= 3 

1240 Ai = 'TOCCA A TE ' + NOi + ' (A/B/C)': GOSUB 10 
10 

1250 GET 6i: IF 6i < > 'A 1 AND Gi < ) ‘B* AND 6i < 

> 'C* THEN 1250 
1260 GOSUB 1060 

1270 X = 20 + (( ASC (GÌ) - 65) * 20):Y = 65: HPLOT 
X,V TO X + 5,Y 

1280 FOR I = 1 TO 7:ELi(I> = ":RI(I) = 0: NEXT I 
1290 1 = 1 : PR = 0 

1300 Ai = 'PRESA (T/Z) 0 SCARTO (RETI GOSUB 1010 
: GOTO 1320 

1310 Ai = '(RET) = PRESA TERMINATA': GOSUB 1010 
1320 GET Rii: GOSUB 1060: IF ASC (Rii) > 83 AND ASC 
(Rii) < 91 THEN PR = l: GOTO 1380 
1330 IF ASC (Rii) < > 13 OR PR = 1 THEN 1360 
1340 GOSUB 4590: IF ER = 1 THEN I = 0: GOSUB 1520: GOTO 
1200 

1350 GOSUB 4140: 60T0 2030 
1360 IF ASC (Rii) = 13 THEN 1440 
1370 6OT0 1300 
1380 FOR K = 1 TO 7 

1390 IF ASC (Rii) = <83 + K) THEN RI<I) = P2(K):a 
iti) = Rli:RC(I) = PTiKCY = 114:X = 48 + (30 * 

(K - 1)>: HPLOT X,Y TO X + 5,Y 
1400 NEXT K 
1410 1=1+1 
1420 GOTO 1310 

1430 REM VERIFICA PRESA CORRETTA 
1440 FOR K = 1 TO 3: IF ASC <6i) = 64 + K THEN C6 = 
62(K):CC = GC<K) 

1450 NEXT 

1460 TP = 0:1 = I - 1 

1470 FOR Y = 1 TO I : TP = TP + RI(Y): NEXT 
1480 IF TP < > C6 OR TP = 0 THEN 1910 
1490 60SUB 5480: IF ER = 1 THEN GOSUB 1520: GOTO 1 
200 
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1500 GOTO 19*0 

1510 REM CANCELLAZ. INDICAZIONE CARTE GIOCATE 
1520 HC0L0R= U HPLOT 15,65 TO 70,65 
1530 HPLOT 40,114 TO 240, HA 
1540 HC0L0R= 3: RETURN 
1550 REM SELEZIONE DISEGNI CARTE 
1560 Q = Z - INT (Z / 10) * 10: IF Q = 0 THEN Q = 1 
0 

1570 R = INT ((Z - 1) / 10) + 1 
1580 HCOLOR= 3: GOSUB 1630: HCOLOR= 0 
1590 ON Q GOSUB 1850,1670,1690,1710,1730,1750,1770, 
1790,1810,1830 
1600 SH = B3: 60SUB 1080 
1610 ON R 60SUB 1880,1890,1870,1900 
1620 RETURN 

1630 SH = B2: GOSUB 1080 
1640 DRAW 1 AT X,Y 

1650 AX = PEEK ( - 16336):AX = PEEK ( - 16336):AX = 
PEEK ( - 16336) 


1660 

RETURN 


1670 

DRAW 2 AT X + 6,Y + 3 


1680 

RETURN 


1690 

DRAW 3 AT X + 6,Y + 3 


170C 

RETURN 


1710 

DRAW 4 AT X + 6, Y + 3 


1720 

RETURN 


1730 

DRAW 5 AT X + 10,Y + 3 


1740 

RETURN 


1750 

DRAW 6 AT X + 6,V + 3 


1760 

RETURN 


1770 

DRAW 7 AT X + Ó,Y + 3 


1780 

RETURN 


1790 

DRAW 8 AT X ♦ 10, Y + 3 


1800 

RETURN 


1810 

DRAW 9 AT X + 8,Y + 9 


1820 

RETURN 


1830 

DRAW 10 AT X + 6, Y + 3 


1840 

RETURN 


1850 

DRAW 11 AT X + 6,Y + 9 


1860 

RETURN 


1870 

HCOLOR= 0: DRAW 7 AT X + 4,Y + 19: 

RETURN 

1880 

HCOLOR= 5: DRAW 4 AT X + 1,Y + 17: 

RETURN 

1890 

HCOLOfc 5: DRAW 5 AT X + 2,Y + 13: 

RETURN 

1900 

HCOLOR= 0: DRAW 6 AT X + 3,Y + 17: 

RETURN 

1910 

A» = ‘ERRORE’: GOSUB 1010: PRINT CHfi» (7) 


1040 

1920 ER = l! 60SUB 1520: GOTO 1200 


1940 IF PR = 1 THEN Lfl» = NO»:LM = 0 
1950 IF CC = 7 THEN E7 = 4 

I960 UG(US) = CG:UC(US) = CC:6X(GH) = CG:6P(GH> = CC 
:US = US + l:GH = GH + l:EU(C6) = EU(CG) + 1 
1970 FOR T = 1 TO Y - 1 
1980 IF RKT! = 0 THEN 2010 
1990 IF RC(T) = 7 THEN E7 = 4 
2000 U60JS) = RI(T):UC(US) = RC(T):GX(6H) = RI(T):GP 
(6H) = RC(T):US = US + USI = 6H ♦ i:EU(RI(TU = 
EUIRI(T)) + 1 
2010 NEXT 
2020 60SUB 4140 
2030 GOSUB 6690 
2040 IF ER = 0 THEN CT = CT + 1 
2050 MN = 1 

2060 GOSUB 1520: GOTO 1200 
2070 MA = MA + li GOTO 490 
2080 REM RISPOSTA CALCOLATORE 
2090 VP = 0:0 = 1:0 = UUT = 0:K1(1) = 0:6» = ":EX = 
0:PR = ’.tHV = i:EC = C:DD = 0 
2100 FOR OP = ' TO 3:YU(0P) = 0: NEXT 
2110 FOR LU = 1 TO 3 
2120 IF UB(LU) < > 0 THEN UT = UT + 1 
2130 *XT 

2140 IF UT = 1 THEN EC = 1 
2150 GOSUB 4590 

2160 D = D + 1: IF UB(D) < > 0 THEN 2150 
2170 D = 0 + l: IF D < =3 THEN 2150 
2180 PR = 0 

2190 D = 1 : EX = HE = 1 
2200 FOR LU = 1 TO 3 

2210 IF UB(LU) = 0 OR YU(LU) = 1 THEN 2230 
2220 'JN(E) = U8(LU):U9(E) = U2(LU):E = E + 1 
2230 NEXT 

2240 PT<8) = 0:P2<8) = 0 
2250 IF D > 3 THEN 2320 

2260 BS = UN1D):BT = U9(D):P1(8) = UN(D):P2(8) = U9< 
D):UN(D) = 0:U9ID) = 0 
2270 E = 1 

2280 IF E > 3 THEN D = D + l:E = 1: GOTO 2200 

2290 IF D = E THEN 2310 

2300 GOSUB 4590 

2310 E = c + i: GOTO 2280 

2320 GOSUB 6290 

2330 IF Kl(l) = 0 THEN 2390 

2340 FOR UT = ! TO 3 

2350 IF YU(UT) = 0 AND UB(UT) ( > 0 THEN DD = 1 
236C NEXT 

2370 IF 31 < - 10 AND PR = Q AND DD - 1 THEN 2390 
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Una Questione Di Carattere: 




••• Qualità' Di Famiglia ! 


La Smith-Corona Fastexl D-80 

è una stampante molto econo¬ 
mica, di facilissimo uso e ma¬ 
nutenzione, dotata però di 
caratteristiche tecniche supe¬ 
riori: 80 colonne a 10 LPI, 
stampa bidirezionale ottimiz¬ 
zato a 80 CPS, interfaccia pa¬ 
rallela di serie e compatibilità 
con i più diffusi personal com¬ 
puter. 

Tutto questo, con grande 
praticità d'uso e dimensioni ri¬ 
dotte. 

La Smith-Corona Fastext 
D-80 è la stampante ideale per 
chi ha problemi di spazio e 
normali esigenze di stampa. 


Con una velocitò di stampa 
bidirezionale ottimizzata di 160 
CPS, la Smtth-Corona D-200 è 
una delle più veloci stampanti 
da 80 colonne presenti sul mer¬ 
cato. Inoltre, la Smith-Corona 
D-200 offre la possibilità di sce¬ 
gliere il tipo di stampa: norma¬ 
le, compresso, espanso, cor¬ 
sivo, grassetto; per la D-200 
non ci sono problemi e la sua 
versatilità le permette anche 
notevoli capacità grafiche. 

Dotata ai interfaccia paral¬ 
lela e seriale standard, la 
Smith-Corona D-200 è compa¬ 
tibile con tutti i personal com- 
puters, ad un prezzo compa¬ 
tibile con tutti i budgets. 

Totalmente compatibile IBM PC 


Perfetta e con un gran bel 
carattere. Grande perchè lo 
Smith-Corona D-300 stampa su 
132 colonne a 160 CPS, bello 
perchè ha le stesse possibilità 
di stampa e la versatilità dello 
sua sorella minore D-200. 

Come quest'ultimo poi, è do¬ 
tata di una doppia interfaccia 
di serie e può stampare sia su 
fogli singoli che su modulo 
continuo. 

Lo Smith-Corona D-300 è uno 

stampante di grande affidabi¬ 
lità, indicata per tutti coloro 
che hanno importanti esigen¬ 
ze di stampa, di una grafica ad 
alta risoluzione e la necessità 
di utilizzare innumerevoli font 
di caratteri. 

Il tutto con la massima silen- 
ziosità. 

Totalmente compatìbile IBM PC 


Mi SMITH 
01 CORONIV 


Attrezzature Ufficio SpA 
Vio Madonna del ripoto, 127 
00165 Homo - Tel. 06/6736741 

Deriderò maggiori Informoilonl tulle SMITH-COKONA 

D-80 1 D-200 O D-300 a 


Nome 




IBM e I8M PC sono marchi registrati dallo International 
Business Machines Corporation 


Indizino 


Telefono 


TL&DB 






























Seguilo listato 2. 


2380 IF 9* > - 20 OR DD = 0 TIEN 2410 
2390 60SUB 2740 
2400 PR = G 
2410 l = Kl(l) 

2420 Y = 35:X = 180 + <(CT - (IN < > 1)1 * 20): GOSUB 
1560: GOSUB 6670 
2430 FOR UT = 1 70 3 

2440 IF UBIUT) = Klll) AND PR < > 1 THEN 2480 
2450 IF UB(UT) \ > KKl) THEN 2490 
2460 EU(U2(VT)) = EU(U2(UT>) + I 
2470 UP(UH) = UBfUT):UX(UH) = U2(UT):UH = UH + 1:UC< 
US) = UB!UT):U6(US> = U2(UT):US = US M 
2480 IF IJB(UT) = KKl) THEN UB(VT) = 0:U2(UT) = 0 
2490 NEXT 

2500 IF PR < > 1 THEN 2600 
2510 FOR UT = 2 TO 5 
2520 FOR LU = 1 TO 7 

2530 IF PT(IU) = 0 OR Kl(UT) = 0 THEN 2580 

2540 IF PT(LU) < > KKUT) IHEN 2580 

2550 UC(US) = PT(LU):U6(US) = P2(LU):US = OS + 1 

2560 UP(UH) = PT(LU):UX(UH) = P2ILU):UH = UH ♦ 1 

2570 EU(P2(LU>) = EU(P2(LU)> + I 

2500 NEXT 

2590 (€XT 

2600 GOSUB 3170: GOSUB 3190 
2610 GOSUB 4140 
2620 GOSUB 6690 

2630 IF PR = 1 THEN L« = ‘APPLE*!LJ1 = 1 
2640 FOR UT = 1 TO 0 
2650 HP(UT) = 0 
2660 NEXT 

2670 FOR UT = 1 TO 3:YU(UT) = 0: f€XT 

2680 FOR UT = 1 TO 5:K1(UT) = 0: (CXT 

2690 FOR UT = 1 TO 3:UN(UT) = 0:U9(UT) = 0: NEXT 

2700 MN * Q:FF = O:PT(0) = 0:P2(8) = 0:UU = 0:AA = 0 

2710 FOR UT = 1 TO HV:FWUT) = 0: NEXT 
2720 IF CT > 3 AND IH = 0 THEN 2070 
2730 GOTO 1200 

2740 REM 6ITTATA SENZA'PRESA PRESENTE 0 FUTURA 
2750 RH = 0:EI = i:XS = 0: FOR LU = 1 TO 3:HR(LU> = 

0: NEXT 

2760 FOR LU = 1 to 3 
2770 TU = IO 

2780 IF UB(LU) = 0 THEN 2970 
2790 IF YU(LU) = 1 THEN 2970 
2800 IF U2(LU) = 7 AND EC = 0 AND NA < 5 THEN 2970 


2810 TU = TU + EU(U2(LU>) 

2820 FOR UT = 1 TO 3 

2630 IF U2(LU) = U2<UT> THEN TU = TU + 1 

2840 NEXT 

2850 FOR UT = 1 TO 7:XS = XS + P2(UT): NEXT UT 
2860 IF U21LU) = 7 AND TU < 13 THEN TU = TU - 2 
2870 IF (U2(LU) + XS) > 10 THEN TU = TU + l: GOTO 2 
890 

2880 TU = TU + EU(U2(LU) ♦ XS) 

2890 IF UB(LU) < = IO THEN TU = TU - 1 
2900 IF U2(LU) = 0 THEN 2980 
2910 IF U2ILUI > 5 THEN TU = TU - .5 
2920 GOSUB 3770 

2930 IF OB = 1 AND NA = 5 THEN TU = TU - 1 

2940 IF OB = 1 AND flA = 6 THEN TU = TU - 3 

2950 RH = TU 

2960 HR(EI) = RH 

2970 EI = EI t l 

2980 NEXT LU 

2990 IF HR(1) > = HR(2) THEN 3020 

3000 IF HR(2) > = HR(3) THEN 3050 

3010 GOTO 3060 

3020 IF HR(1> ) = HR(3) THEN 3040 
3030 GOTO 3060 

3040 01 = HRU):TL = i: GOTO 3070 
3050 OL = HR12KTL = 2: GOTO 3070 
3060 OL = HR(3>:TL = 3 
3070 KKl) = UB(TL) 

3080 MN - 1 
3090 RETURN 

3100 REM DISEGNO CARTE PRESE 
3110 ROT= 16:Y = 55 
3120 IF HN = 1 THEN X = 180 
3130 IF rtN = □ THEN X = 114 
3140 SH = 82: GOSUB 1080 

3150 HCOLOR= 3: DRAW 1 AT X,Y: HCOLOR= 0: DRAM 12 AT 
X - 2,Y * 2: ROT= 0: HCOLOR= 3 
3160 RETURN 

3170 HCOLOR= l: GOSUB 1630: HCOLOR= 0: RETURN 

3180 REN CONVERSIONE INDICE-TASTIERA 

3190 IF PR = 0 THEN RETURN 

3200 FF = l:DP = 1 

3210 FOR DI = 2 TO 5 

3220 FOR DY = 1 TO 7 

3230 IF PT(DY) < > Kl(DI) THEN 3260 

3240 IF PTIDY) = 0 THEN 3260 

3250 GOSUB 3300:DP = DP M 

3260 NEXT 

3270 NEXT 
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3280 I = DP - 1 
3290 RETURN 
3300 POR l\ = 1 T0 7 

3310 IF DY = K THEN ELXDP) = CHR* (8J ♦ K) 

3320 NEXT 
3330 RETURN 

3340 REM VERIFICA SCOPA 

3350 FOR A = 1 TO 7tPS(A) = 0:PE(A) = 0: f€XT 

3360 IF EX = 1 THEN 3480 

3370 FOR A = 1 TO 7 

3380 I c PT(A) = SK OR PTIA) = SY OR PT(A) = SX OR P 
T(A> = SW TTEN PS(A) = 0: GOTO 3420 
3390 IF PT(A) = SL THEN PS(A) = 0: GOTO 3420 
3400 PS(A) = P2IA) 

3410 60T0 3430 
3420 PE(A) = P2(A) 

3430 NEXT 
3440 SS = 0:01 = f) 

3450 FOR A = 1 TO 7 
3460 SS = SS ♦ PS(A) 

3470 NEXT 

3480 IF EX < >1 THEN 3540 
3490 SS = 0:CM = 0 
3500 FOR A = l TO 7 
3510 SS = SS + P2(A) 

3520 NEXT 
3530 SS = SS + BT 

3540 IF SS = 0 THEN CM = 1 : GOTO 3750 
3^0 IF SS > 10 THEN 3750 
3560 TU = 0 

m iw Tu. 3650 

3590 FOR A = 1 TO 3 

3600 IF U2(A) = SS THEN TU = TU ♦ I 

3610 NEXT 

3620 FOR A = 1 TO 7 

3630 IF P2!A> = SS THEN TU = TU + 1 

3640 NEXT 

3650 IF TU = 4 THEN 3750 
3660 IF TU = 3 MN RH = 4 

3670 IF TU = 2 THEN RH = 0 

3680 IF TU = l OR TU = 0 THEN RH = 12 

3690 IF HA = 1 OR HA = 2 DCN J740 

3700 IF HA = 3 THEN RH = RH + 5 

3710 IF HA = 4 THEN RH = RH + 15 

3720 IF MA "• 5 THEN RH = RH + 30 

3730 IF HA = 6 THEN RH = RH ♦ 100 

3740 GOTO 3760 


3750 RH = 0 
3760 RETURN 

3770 REM SUBR. 5 E 6 NANO 
3700 Ir HA < 5 THEN RETURN 

3790 IF CT = 3 AND IH = I THEN RETURN 

3800 IF CT = 4 AND IN - 3 THEN RETURN 

3810 FOR DA = l TO 6:H6(DA) = 0:GU(DA) = 0-‘GU<DA) = 

OS NEXT 
3820 UU = 1 

3830 FOR DA - 1 TO 4C:VF(DA) = 0: T£XT 
3840 FOR DA = l TO US 
3850 VF(UCtDAi) = 1 
3860 NEXT 

3870 FOR DA = 1 TO 3 
3880 VF(UB(DA)) = 1 
3890 NEXT 

3900 FOR DA = 1 TO 7 
3910 VFIPTIDAI) = 1 
3920 ACXT 
39.30 DB = l 

394C FOR DA - l T Q 40 
3950 IF VF(DA) = 1 THEN 3990 
3960 GU(DB) = DAstìW(OB) = VAL ( R1GHT$ ( STR$ (DA), 
il) 

3970 IF GW(DB) = 0 AND GU(DB) < > 0 TI€N GW(DB) = 
IO 

3980 DB = DB ♦ 1 

3990 NEXT 

4000 KU = OSLO = 1 

4010 IF HA = 5 THEN OY = 9 

4020 IF HA = 6 THEN OY = 3 

4030 FOR DA = 1 TO OYSHG(DA) = GUIDA): NEXT 

4040 AA - lsHN = OtOB = 0 

4050 PTI8) = UB(LU):P2(8) = U2CLU) 

4060 DA - 1 

4070 IF DA > OY T1CN 4120 
4080 IF H6(DA) = 0 THEN 4110 
4090 GOSUB 4590 
4100 IF OB = 1 THEN 4120 
4110 DA = DA + l: GOTO 4070 
4120 RETURN 

4130 REH SUBR. CANCELLA CARTE 
4140 Y = 35 

4150 IF 6$ = ’A' THEN X = 14 

4160 IF 6$ = ‘B‘ TTEN X = 34 

4170 IF G* = *C* TTEN X = 54 

4180 IF FF = 0 AND HN = 0 THEN GOSUB 3170 

4190 Y = 120 

4200 FOR SC = 1 TO I 
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4210 IF EL*(SC) < > *T' TTCN 4230 
422G X = 42:PT(1) = 0:P2(1) = 0 
4230 IF EL$(SC) < > ‘li* THEN 4250 
4240 X = 72:PT(2) = 0:P2(2) = 0 
4250 IF ELÌ(SC) < > ’V 1 THEN 4270 
4260 X = 102:PT(3) = 0:P2<3) = 0 
4270 IF ELÌ(SC) < > *W THEN 4290 
4280 X = 132:PT(4) = 0:P2<4) = 0 
4290 IF ELUSO < > *X* THEN 4310 
4300 X = 162:PT<5) = 0:P2(5) = 0 
4310 IF ELXSC) < > ’Y* THEN 4330 
4320 X = 192:PT(6> = 0:P2<6) = 0 
4330 IF ELÌ(SC) < > T THEN 4350 
4340 X = 222:PT(7) = 0:P2(7) = 0 
4350 IF PR = 1 THEN 60SUB 3170 
4360 IF PR = 0 THEN 4390 
4370 NEXT 

4380 IF PR = 1 THEN GOSUB 3110 
4390 F0R 3C = 1 T0 7 
4400 ELÌ(SC) = " 

4410 NEXT 

4420 IF 6» = 'A' THEN PV = 6C(1):PW = 62<1):6C(1) = 
0:62(1) = 0 

4430 IF G$ = *B* THEN PV = 6C(2):PW = 62<2):GC(2) = 
0:62(2) = 0 

4440 IF 6$ = ‘C* TTCN PV = 6C(3):PW = 62(3):6C(3) = 
0:62(3) = 0 

4450 IF PS = 1 then RETURN 
4460 IF MN < > 1 THEN 4500 
4470 PV = Kl(l) 

4400 PH = VAL ( R1GHT* ( STR* (PV),11) 

4490 IF PN = 0 AND PV < > 0 THEN PW = 10 

4500 FOR C = 1 TO 7 

4510 IF PT(C) < > 0 THEN 4540 

4520 PT(C) = PV:P2(C) = PH 

4530 60T0 4550 

4540 NEXT 

4550 Y = 120 

4560 X = 42 + ((C - 1) * 30) 

4570 Z = PV: 50SUB 1560 
4580 RETURN 

4590 REM VERIFICA PRESA 0 GITTATA 

460C 2Z = 0:WW = 0 

4610 IF 6$ = 'A* THEN CG = 62(1) 

4620 IF 6$ = ‘B* THEN CG = 62(2) 

4630 IF 6$ = *C* TFEN C6 = 62(3) 

4640 IF AA = 1 THEN CG = H6(DA) 


4650 IF MN = 1 AND EX = 0 THEN CG = U2(D) 

4660 IF MN = 1 AND EX = 1 THEN CG = U9(E) 

4670 IF C6 = 0 AND MN = 1 TTCN RETURN 

4680 IF C6 = 0 AND NN = 0 THEN 1910 

4690 CK = 1 
470C = 1 

*710 IF N > 8 THEN 4780 

4720 IF CS = P2(N) THEN TH = P2(N):SL = PT(H):ZZ = 
l:M = l: GOTO 5410 

4730 IF MN < > 1 OR EX < > 1 TTCN 4770 
4740 FOR VE = 1 TO 8 
4750 IF UN(E) = PT(VE) THEN RETUFN 
4760 NEXT 

4770 M = M + l: GOTO 4710 
4780 TC = 0 
4790 H = 1 

4800 IF ZZ = 1 THEN CK = 5: GOTO 5410 

4810 CK = 2 

4820 FOR n = 1 TO 8 

4830 IF P2(«) = 0 OR P2(H) > CG THEN 4870 
4840 P9(H) = P2(N):PC(H) = PT(M) 

4850 TC = TC t 1 
4860 H = H + 1 
4870 ICXT 

4880 IF TC < =1 THEN 5380 
4890 M = 1 

4900 IF M > TC - 1 THEN 5020 

4910 SI = P9(M):SK = PC(M):TK = Sl:EN = 0 

4920 N = 1 

4930 IF N > TC THEN 5010 

4940 IF N = M THEN 5000 

4950 IF SI + P9(N) < > CG THEN 4990 

4960 SY = PC(N):TY = P9IN):HK = 1 

4970 IF N < TC THEN EN = 1 

4980 GOTO 5410 

4990 SI = P9(H>:SK = PCINKTK = S1:EN = 0 

5000 N = N + l: 6OT0 4930 

5010 H = H + l: GOTO 4900 

5020 IF TC < = 2 THEN 5380 

5030 H = 1 

5040 CK = 3 

5050 IF N > TC - 2 THEN 5220 
5060 N = 1 

5070 SI = P9(H):SK = PC(M):TK = Sl:EN = 0 

5080 IF N > TC - 1 THEN 5210 

5090 IF N = M THEN 5200 

5100 S2 = SI + P9(N):SY = PC(N):TY = P9(N) 

5110 B = 1 

5120 IF B > TC THEN 5200 
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5130 IF B = N OR B = H THEN 519C 

5140 IF 52 + P9(B> < > CS THEN 5190 

5150 IF B < TC THEN EN » 1 

5160 UU = l:SX = PC(B):TX = P9!B): GOTO 5410 

5170 SI = P9(«):SK = PC(H>:TK = SlsEN = 0 

5180 S2 = SI + P9(N):SY = PC(N):TY = P9(N) 

5190 B = B + li GOTO 5120 

5200 SI = P9(H):SK = PCIHl.'TK = SlsEN = 0:N = N + 1: 
GOTO 5080 

5210 H = H + 1: GOTO 5050 
5220 IF TC < = 3 THEN 5380 
5230 « = 1 
5240 CK = 4 

5250 IF li > (TC - 3) THEN 5380 

5260 SI = P9IH)tSK = PC(«):TK = SI 

5270 FOR N = H + 1 TO TC - 2 

5280 S2 = SI + P9(N):SY = PC(N):TY = P9(N) 

5290 FOR B = N + 1 TO TC - 1 

5300 S3 = S2 + P9(B):SX = PC(B):TX = P9(B) 

5310 FOR V = 1 TO 7C 

5320 IF V = B OR V = N OR V = H THEN 5340 

5330 IF 53 + P9<V> = t6 THEN UU = l:SM = PC(V>:TW = 

P9(V): GOTO 5410 
5340 NEXT V 
5350 NEXT B 
5360 NEXT N 

5370 « = H + l: GOTO 5250 
5380 IF HN = 1 THEN CK = 5 

5400 RETURN 

5410 IF MN = 1 AND WU = 1 THEM YUID) = 1 
5420 IF EN = 1 AND HN = 1 THEN GOSUB 5610: ON CK GOTO 
4770,4990,5170 

5430 IF MN = ! THEN 60SUB 5610: ON CK GOTO 4770,50 
10,5200,5250,5400 

5440 IF AA = ! THEN OB = 1: RETURN 
5450 A* = ‘OBBLIGO DI PRESA*: GOSUB 1010: PRINT CHR4 
(7): GOSUB 1040 
5460 ER = 1 
5470 RETURN 

5480 RETI VERIFICA PRESA MINIMA 
5490 IF I = 1 THEN RETURN 
550C FOR Y = 1 TO 7 
5510 IF TP = P2tY> THEN 5540 
5520 NEXT 
5530 RETURN 

5540 A* = ‘PRESA NON VALIDA’: 60SUB 1010: PRINT CHW 
(7): GOSUB 1040 


5550 ER = 1 
5560 RETURN 

5570 REN PUNTEGGIO INTERNO CARTE 
5580 XC = KK(KY) 

5590 IF KY = 17 OR KY = 27 OR KY = 37 THEN XC = XC - 
E7 

5600 RETURN 

5610 REN VETTORE PUNTEGGIO 

5620 VP = 0:XC = 0:Z = 0 

5630 IF EX = 1 THEN VP = - 8 

5640 IF CK = 5 THEN 6240 

5650 IF CK ( > 1 THEN 5830 

5660 IF UBIDÌ = 0 THEN RETURN 

5670 SK = 0:SY = 0:SX = 0:SW = 0:SL = 0 

5680 TK = 0:TY = 0:TX = 0:TW = 0:7H = 0 

5690 IF EX = 0 THEN HPIOl = UB(D) 

5700 IF EX = 1 THEN HPIOl = BS 

5710 0 = 0 +1 

5720 HPIOl = PT(H):SL = PTIH) 

5730 0 = 0 + 1 
5740 HPIOl = 0 
5750 0 = 0 + 1 

5760 KY = PTIH): GOSUB 5570:VP = VP + XC 
5770 IF EX = 0 THEN KY = UBIDÌ: GOSUB 5570:VP = VP + 
XC 

5780 IF EX = 1 THEN KY = UNIE): GOSUB 557D:VP = VP + 
XC 

5790 GOSUB 3340:VP = VP - RH 

5800 IF CH = 1 AND EX = 0 THEN VP = VP + 15 

5810 HPIOl = VP:0 = 0 + 1:HP(0) = 0:0 = 0 + 1 

5820 GOTO 6240 

5830 HPIOl = UBIDÌ 

5840 IF EX = 1 THEN HPIOl = BS 

5850 0 = 0 + 1 

5860 HPIOl = SK 

5870 0 = 0 + 1 

5880 HPIOl = SY 

5890 0 = 0 + 1 

5900 IF CK > =3 THEN 5990 
5910 HPIOl = 0:0 = 0 + 1 

5920 IF EX = 0 THEN KY = UBIDÌ: GOSUB 5570:VP = VP + 
XC 

5930 IF EX = 1 THEN KY = UNIE): GOSUB 5570:VP = VP + 
XC 

5940 KY = SK: GOSUB 5570:VP = VP + XC 

5950 KY = SY: GOSUB 5570:VP = VP + XC 

5960 GOSUB 3340:VP = VP - RH 

5970 IF CH = 1 AND EX = 0 THEN VP = VP + 15 

5980 HPIOl = VP:0 = 0 + l:HP(0) = 0:0 = 0 + U 60T0 
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Scopa a Ira carte 



Seguito listato 2. 

6240 

5990 HPIO) = SX 
6000 0 = 0 + 1 

6010 IF CK > = 4 T1£N 6110 
6020 MPIO) = 0:0 = 0 + 1 

6030 IF EX = 0 THEN KY = UBIDÌ: GOSUB 5570:VP = VP ♦ 
XC 

6040 IF EX = 1 fHEN KY = UNIE): GOSUB 5570:VP = VP + 
XC 

6050 KY = SK: GOSUB 5570:VP = VP + XC 

6060 KY = SV: 60SUB 5570:VP = VP ♦ XC 

6070 KY = SX: GOSUB 5570:VP = VP + XC 

6000 GOSUB 3340:VP = VP - RH 

6090 IF CK = 1 AND EX = 0 THEN VP = VP ♦ 15 
6100 MPIO) = VP:0 = 0 + 1trtPIOl = 0:0 = 0 + 1: GOTO 
6240 

6110 IF CK > = 5 THEN 6240 
6120 «PIO» = SU 
6130 0 = 0 + 1 
6140 MPIO) = 0:0 = 0+1 

6150 IF EX = 0 THEN KY = UBIDÌ: GOSUB 5570:VP = VP + 
XC 

6160 IF EX = 1 THEN KY = UNIE): GOSUB 5570:VP = VP ♦ 
XC 

6170 KY = SK: GOSUB 557Q:VP = VP + XC 

6180 KY = SY: GOSUB 5570:VP = VP + XC 

6190 KY = SX: GOSUB 5570:VP = VP + XC 

6200 KY = SU: GOSUB 5570:VP = VP + XC 

6210 GOSUB 3340:VP = VP - RH 
6220 IF 01 = 1 AND EX = 0 THEN VP = VP ♦ 15 
6230 «PIO» = VP:0 = 0 + l:HP(0) = O-'O = 0 ♦ i :» = « + 
i: GOTO 6240 

6240 SK = 0:SY = 0:SX = 0:SU = 0:SL = 0 
6250 TK = 0:TY = 0:TX = 0:TU = 0:TH = 0 
6260 IF EX = 0 THEN FMIHV) = 22:HV = HV + 1 

6270 IF EX = 1 THEN FMIHV) = 11:HV = HV + 1 

6280 RETURN 

6290 REM RICERCA PUNTEGGIO MAX 
6300 W = I : X = 1SVH = 1 
6310 IF MPIU) =0 T1€N 6340 
6320 Kl(X) = MPIU) 

6330 X = X + l:U = W ♦ 1 : GOTO 6310 
6340 FOR C = X TO 5 
6350 K1IC) = 0 
6360 NEXT 

637L H * H + l.'SN = MP(«):FZ = FM(VH):VH = VH + 1 
6380 IF U > 0 THEN 6580 
6390 U = U + 1 


6400 IF MPIU) < > 0 T)€N 6440 

6410 U = U + 1 

6420 IF U > 0 THEN 6580 

6*30 GOTO 6400 

6440 Q = 1 

6450 IF MPIU) = 0 THEN 6480 
6460 K2iQ) = MPIU) 

6470 Q = 0 + l:U = U M: GOTO 6450 
6480 FOR C = Q TO 5 
6490 K2IC) = 0 
6500 NEXT 

6510 M = U ♦ UBM = MP(U):FY = FM(VH):VH = VH + ! 

6520 IF SM > = BM THEN 6380 
6530 SM = BM:FZ = FY 
6540 FOR C = 1 TO 5 
6550 Kl(C) = K2IC) 

6560 NEXT 

6570 GOTO 6380 

6580 IF FZ = 22 T)£N PR = 1 

6590 IF FZ = 11 THEN PR = 0 

6600 FOR AG = 2 TO 5 

6610 IF Ki(1) = KIIA6) THEN PR = 0 

6620 NEXT 

6630 FOR A6 = I TO 5 
6640 IF K1IA6) = 7 THEN E7 = 4 
6650 NEXT 
6660 RETURN 

6670 FOR C = 1 TO 1000: NEXT : RETURN 
6680 REM CONTROLLO SCOPA 

6690 IF MA > = 6 AND CT > = 3 AND IM = 1 AND MN = 

0 THEN RETURN 

6700 IF MA > = 6 AND CT > 3 AND IM = 0 AND MN = 1 T)EN 
RETURN 

6710 FOR HA = 1 TO 7 

6720 IF PTIHA) < > 0 T>£N RETURN 

6730 NEXT 

6740 XI = 10:Y1 = 180 

6750 Ai = ‘SCOPA !"'!*» GOSUB 1010: PRINT GOSUB 
1060 

6760 IF PR = 1 AND MN - l TTCN YS = YS + i:X = 150 + 

YS * 5:Y = 32 ♦ YS » 3:Z = Kl(l): GOSUB 1560 

6770 IF PR = 1 AND MN = 0 THEN ZS = ZS + UX = 85 + 

ZS ♦ 5:Y = 32 + ZS « 3:Z = PV: GOSUB 1560 

6780 GOSUB 3110: RETURN 

6790 A» = ‘UN ISTANTE, DEVO CARICARE.*: GOSUB 10 

10 

6800 PRINT DII ‘OPENSCOPA.TXT* 

6810 PRINT Di;‘WRITESCOPA.TXT* 

6820 PRINT NOi: PRINT Bi: PRINT B2: PRINT B3 
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Scopa 3 - Calcolo punteggi 

20-140 - Dimensionamento e lettura del¬ 
le variabili necessarie al calcolo del 
punteggio. 

150-350 - Assegnazione delle carte ri¬ 
maste sul piatto. 

480-560 - In questa parte del program¬ 
ma, modificata rispetto all'originale, le 
carte vengono ordinate secondo l'ordi¬ 
ne di importanza per la primiera: le figu¬ 
re valgono 1, le carte dal 2 al 5 conser¬ 
vano il loro valore, l’asso vale 6, il sei 
vale 7 e il sette vale 8. 

620-700 - La medesima procedura è uti¬ 
lizzata per il giocatore. 

710-810 - La scelta delle migliori carte di 
primiera per ogni seme è rimasta inva¬ 
riata rispetto alla versione originale (va¬ 
ria solo il campo di ricerca che, con i 


nuovi valori, va da AC = 0 a BC = 8). 
820-860 - Vengono assegnati i valori di 
primiera di ciascuna carta: dal due al 
sei (carte 2, 3,4, 5, asso) si aggiungono 
10 punti; le figure valgono 10 e il sei e il 
sette valgono rispettivamente 18 e 21 
punti. 

980-1020 - Medesimo sistema per il gio¬ 
catore. 

1050-1140 - Vengono ripristinati i valori 
iniziali delle carte per il loro successivo 
disegno sullo schermo. 

1150 - Lo schermo viene cancellato ad 
eccezione dei nomi e dei punteggi totali 
fino a quel momento acquisiti. 
1160-1600 - Vengono disegnati su due 
colonne i punteggi ottenuti. 

1540 - Questa istruzione cancella i pun¬ 
teggi totali che compaiono a fianco di 
ciascun nominativo. 


1550-1560 - Iscrizione a fianco dei nomi 
del punteggio totale di cui sopra. 

1620-1630 - Si verifica, tramite la variabi¬ 
le PM che contiene il punteggio prescel¬ 
to per la partita, se c'è un vincitore. In 
caso affermativo viene indicato sia gra¬ 
ficamente che con segnali sonori (Print 
Le variabili TT vengono poste a 0. 
1660-1780 - Vengono memorizzate nel 
file le variabili necessarie ad un'even¬ 
tuale partita successiva. 

1840-1890 - Conclusione programma. 
1900 - Definizione dei puntatori per i 
messaggi e i disegni delle carte. 
1910-1940 - Subroutine per la stampa 
dei messaggi. 

1950-2280 - Subroutine disegno carte. 


Seguito listato 2. 

6830 PRINT TTU>: PRINT TT(2) 

6840 FOR K = 1 TO 40: PRINT KK(K): AEXT 
6850 PRINT PH: PRINT IH 
ù86G PRINT LM 
6870 PRINT Urt 

6880 FOR K = I TO 9: PRINT PTtKl: PRINT P2(K): NEXT 

6890 FOR K = 1 T0 41 : PRINT UP(K): PRINT UX(K): PRINT 
6PIK): PRINT 6X(K): NEXT 
6900 PRINT OH: PRINT 6H: PRINT ZS: PRINT YS 
6910 PRINT Diì“(LOSESCOPA.TXT' 

6920 PRINT Di;'RUNS(0PA.3* 


Listato 3-11 programma che si occupa del punteggi. 

10 LOHEN: 26350 

20 D1H XK(40>,TT(2),PT(9)|P2(9),UP(41)iUX(41),6P(41),6X(41) 

30 M = CHW 14) 

40 PRINT DBì'OPENSCOPA.TXT" 

50 PRINT Wi'REAOSCOPA.TXT" 

60 INPUT NO»: INPUT 11: INPUT B2: INPUT B3 
70 INPUT TTC1): INPUT TTC2) 

BO FOR K = 1 T0 40: INPUT KK(K): *XT 
90 INPUT PH: INPUT IN 
100 INPUT Ut: INPUT LH» 

110 FOR X = 1 TO 9: INPUT PT(K): INPUT P21K): NEXT 
120 FOR K = I T0 41 : INPUT UP(K): INPUT UXIK): INPUT 6P(K): INPUT 6X 
(K>: NEXT 

130 INPUT UH: INWT GH: INPUT ZS: INPUT YS 
140 PRINT Mi "(LOSESCOPA. TXT* 

150 REN CALCOLO PUNTEG6I0 


160 DZ = 0: IF Ut = 0 THE» 230 

170 FOR UT = 1 TO 7 

100 IF PTCUT) = 0 T)£N 210 

190 DZ = KUPIUH) = PT(UT):UI(UH) = P21UT) 

200 UH = UH 4 l 

210 CXT 

220 GOTO 280 

230 FOR UT = l TO 7 

240 IF PT(UT) = 0 T>€N 270 

250 DZ = l:6P(GH) = PTIUT):6I(6H) = P21UT) 

260 6H = GH ♦ 1 
270 «XT 

280 IF DZ = 0 THEN 360 

290 HC0L0R= 0: FOR K = 180 TO 190: HPLOT 0,K TO 279,K: NEXT : HCCLOR 
= 3 

300 I = 10:Y = 180 

310 A» = "LE CARTE Da PIATTO UNNO A ' + LM»: GOSUB 1910 
320 FOR K = I TO 1000: «XT 
330 HC0L0R= 1 

340 FOR K = 115 TO 146: HPLOT 0,K TO 279,K: l€XT 
350 HCOLOR= 3 
360 6D = 0 

370 IF GH > UH T)€N 00 = I 

300 IF GH < UH T)€N JO = 1 

390 FOR UT = 1 TO UH 

400 IF UPIUT) < = 10 Aie UPIUTI > 0 T)€N 6D = 6D + 1 
410 NEXT 

420 IF 60 > 5 T)£N J1 - 1 

430 IF 6D < 5 THEN 01 - 1 

440 FOR UT = 1 TO UH 

450 IF UPIUT) = 7 T1€N J2 = l: GOTO 480 

460 *XT 

470 Q2 = 1 

400 FOR UT = 1 TO UH 

490 IF UPIUT) = 0 THEN 560 

500 IF UXIUT) > 1 AM) UXIUT) < 6 TTEN 560 

510 IF UXIUT) = 10 THEN UPIUT) = UPIUT) - 9:UX(UT> = UXIUT) - 9 

520 IF UXIUT) = 9 T)CN UPIUT) » UPIUT) - 0:UI(UT) = UXIUT) - 8 

530 IF UXIUT) = 8 T)€N UPIUT) = UPIUT) - 7:UX(UTJ = UXIUT) - 7 

540 IF UXIUT) = 7 OR UXIUT) = 6 T)£N UPIUT) =■ UPIUT) ♦ UUXIUT) = UX 
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Scopa a tre carte 


APPLE II 


Seguito listato 3. 


(UT) ♦ 1 

550 IF UXIUT) * 1 TUN UPIUTI « UPIUT) * 5:UX(UT> = UXIUT) » 5 
560 ICXT 

570 X = I0!V « 180 
580 HC0L0R* 0 

590 FOR K = 170 TO 190! HPL01 0,K TO 279,K: *XT 
600 HtOtOR= 3 

610 Al = ‘ATTENDI UN ATT INO PER FAVORE’: GOSUB 1910 
620 FOR UT = 1 TO EH 
630 1F GPIUTI - 0 THEN 700 

6A0 1F 6X (UT t > I AND GXIUT) < 6 T)€N 700 

650 IF 6XIUTI = 10 THEN GPIUT) = GPIUTI - 9:6X(UT> = GX(UT) - 9 

660 IF GXiUTI = 9 THEN 6PIUTI « GPIUTI - BiGXIUTI = 6IIUTI - 8 

670 IF 6XIUTI = 8 DCN 6P(UT) « GP'UT) - 7ì6t(UTI = 6XIUTI - 7 

680 IF 6XIUTI = 7 OR 6XIUT) • 6 DCN GPIUT) = 6PIUTI ♦ |:6X(UT) = Gl 

(UT) * I 

690 IF GXIUT) = I T*N 6P(IP' « GPIUTI ♦ 5:6I(UT) = GX(UT) + 5 
700 NEIT 

710 AC » Q:BC = BUIA = 1UU = 0 
720 IF HA » 4 THEN 860 
730 UT * i:n * 0 

740 If UPIUT) < = BC ANO UPIUTI > AC UBI NI = UXlUTliTT = 1! GOTO 
790 

750 UT = UT ♦ I 

760 IF UT ) 40 AND TT * 0 THEN PI - 0: GOTO 820 

770 IF UT > 40 DCN 79C 

780 GOTO 740 

790 FOR UT = 1 TO UH 

800 IF UPIUT ♦ 1) < * BC AND UPIUT «■ Il > = AC AND UXIUT * 1) > HI 
DO* HI * UXIUT « Il 
810 NEIT 

820 IF NX > 1 AND NI < 7 T)€N NI = HI ♦ 10: GOTO 850 

830 IF NX » 1 THEN HI = 10: GOTO 850 

840 IF NX ) 6 THEN NX « INI - Il * 3 

850 BQIKA) » HXiKA « KA * HAI = AC 4 10:»C = BC ♦ 10: GOTO 720 

860 FOR UT = I TO 4:IU » IU ♦ BOIUTI: NEIT 

970 AC = P:Bt * B:KA « 1:16 = 0 

880 IF NA > 4 THEN 1020 

890 UT = i:n » 0 

900 IF GPIUT) < = BC A» GPIUT) > AC UBI NI = 6*<UT) :TT = l: GOTO 
950 

910 UT = UT ♦ 1 

920 IF UT > 40 ANO TI = 0 THEN NX = 0: GOTO 900 

930 IF UT > 40 THEN 950 

940 GOTO 900 

950 FOR UT ’ 1 TO EH 

960 IF GPIUT ♦ 1) < = BC AND GPIUT ♦ 1) > = AC ANO GXIUT * 1) > NX 
DCN NI = GXIUT ♦ 1) 

970 *XT 

980 IF NX > 1 ANO NX < 7 T)€N HI = NX * 10: GOTO 1010 

990 IF NI = I T)CN NX » IO: GOTO 1010 

1000 IF NI > 6 THEN NX * (NI - I) • 3 

1010 AOIKA) = NX:KA = KA ♦ UAC = AC ♦ 10:BC = BC « 10: GOTO 880 

1020 FOR UT * 1 TO 4:16 » IG ♦ AQIUT): «IT 

1030 IF 16 > IV TICN Q3 = I 

1040 IF 16 < 1U THEN J3 = 1 

1050 FOR UT = 1 TO 4 

1060 IF AQIUT) > Il AND AQIUT) < 16 THEN AQIUT) = AQIUT) - 10 
1070 IF AQIUT) > 17 DO AQIUT) • AQIUT) / 3 

1080 IF AQIUT) * 16 DO AQIUT) = 1 

1090 ICXT 

1100 FOR UT » 1 TO 4 

Ilio IF BQIUT) ) Il AND BQIUTI < 16 THEN BQIUT) = BQIUT) - IO 

1120 IF BQIUT) > 17 DO BQIUTI * BQIUT) 7 3 


1130 IF BQIUT) = 16 DO BQIUT) = 1 
1140 *XT 

1150 HCOLOR= 0: FOR K = 20 TO 190: HPEOT 0,K TO 279,K: ICXT 
1160 HCCX.OR= 3 

1170 X = 35:v = 35:A» = STR« (Gl - 1): 60SUB 1910 

1180 X = 220:A* . STR« (UH - I): 60SUB 1910 

1190 IF W = UH DO X * 100:A» = ‘CARTE PARI 1 : GOSUB 1910: GOTO 121 

0 

1200 X = I 18:A* = ‘CARTE 1 : GOSUB 1910 

1210 X = 40:Y » 50:A» = STR* 110-60): GOSUB 1910 

1220 X = 225:A4 = STR* (GD): GOSUB 1910 

1230 IF GD = 5 THEN X 1 107:A» = ‘ORI PARI": 60SU1 1910: 60T0 1150 
1240 I = 125: A4 » ‘0R1‘: GOSUB 1910 
1250 IF J2 - 1 TIO X = 220:Y = 65:Q = 7:R = U GOSUB 1950 

1260 IF 02 = 1 THEN X « 35:V « 65:0 = 7:R = i: GOSUB 1950 

1270 I ■= !00:Y = 75:A* » ‘SETTEBELLO’ : GOSUB 1910 
1280 » = 100 
1290 FOR T * 1 TO 4 
1300 Ir AQIT) = 0 DCN 1320 

1310 X « 15 ♦ (20 4 (T - llliQ = AQIT'ìR - 7: GOSUB 1950 
1320 *XT 

1330 FOR T » I r 0 4 
1340 IF BQIT) * 0 DCN >360 

1350 I = 130 » 120 4 (T - !)>:Q = BQIT):R = T: GOSUB 1950 
1360 ICXT 

1370 X « 112:V • UOSA» » ‘PR1N1ERA*: GOSUB 1910 

1380 IF 16 = IU DCN I = 12i:Y ■ 120:A» = ‘PARI’: GOSUB 1910: GOTO 1 

410 

1390 IF 16 > 1U DCN X = 95:Y « 110:A» = CHR* 160): GOSUB 1910 

1400 IF 16 < 1U DCN X » 168:Y = UOSA* = CHR* 1621: GOSUB 1910 

1410 Y » |35 

1420 X = 118:A4 r ‘SCOPE 1 : GOSUB 1910 
1430 I - 40:A* = STR* US): GOSUB 1910 
1*40 X = 225:A* = STR» (YS): GOSUB 1910 
1450 Y = 143 

1460 X = 15:A* = •=>=*=•: GOSUB 1910 
1470 X = 195 : A* = •===•! GOSUB 1910 
1480 Y » 152 

1490 X = 97:A* = ‘TOTALE NANO’: GOSUB 1910 

1500 TN(l) = QO ‘ 01 * Q2 * Q3 ‘ IS:TNI2) = JO r J1 * J2 ♦ J3 ♦ YS 

1510 X = 40:A* = STR* ITNID): GOSUB 1910 

1520 X = 223 :A* » STR* ITNI2I1: GOSUB 1910 

1530 TTI1) = TT(l) ♦ D4ll):n(2) = TTI2) ♦ TNI2) 

1540 HCOLOR» 0! FOR K = 10 TO 19: HfLOT 5.K TO 20,K: HPLOT 260,K TO 
275,K: ICXT : HCOLOfc 3 

1550 Y = 10:X = 5:A* = STR* CTTIll >: GOSUB 1910 
1560 I = 260:A* * STO* <TT(2>): GOSUB 1910 
1570 Y = 165 

1580 I = 40: A» = STR* ITTI!)): GOSUB 1910 
1590 X = 225:A» = STR* ITTI2)*: GOSUB 1910 
1600 X = 86:A* = ‘TOTALE PARTITA’: GOSUB 1910 
1610 REN FI AG DI FINE “ARTITA 

1620 IF TT(I) Y PN ANO ridi ni2) DCN Y = 185:X = 20:A* = ‘VINCI 
TORE’S GOSUB I9I0:TTI1) * 0:TTI2> = 0: PRINT 
1630 IF TTI2) > PN ANO TT<2) > TTII) THEN V = 185:1 = 200:A* = ‘VINC 
TTORE": GOSUB :9I0:TT<1) » om(2) = 0: PRINT •• 

1640 Y r 180=X » 86:A» •- ‘PREMI UN TASTO’: GOSUB 1910 
1650 EET Z* 

1660 FOR K * 1 TO 9:PT(K> * 0:P2(K) = 0: NEXT 

1670 FOR K * I 70 4l:UP(K) • 0:UX(K) = 0:6PIK) = 0:GX!K) = 0: NEXT 

1680 PRINT D»i‘OPENSCOPA.TXT‘ 

1690 PRINT D*1‘MRITESC0PA.TXT‘ 

1700 PRINT NO*: PRINT Bl: PRINT B2: PRINT B3 
1710 PRINT TT(l)t PRINT TTI2) 

1720 FOR K » 1 TO 40: PRINT KKIK): ICXT 








Seguito listato 3. 


Listato 4 - La parte In linguaggio macchina per II disegno del 
caratteri e delle carte. 


1730 PRINT m: PR1MT IH 
17W PRIMI Ut: PRIMI un 

1750 POR K = I T0 9: PRIMI PUMI: PRIMT P2(K): *XT 
1760 POR K = I T0 91! PRIMI OPIMI! PRIMI UX(K): PRIMI 6PIK): PRIMI 6 
XIKl! *X’ 

1770 PRIMI UH: PRIMI SH: PRINI ISi PRIMI YS 
1780 PRIMI Mi'ClOSEStOPA.m’ 

1790 IP TTI1I = 0 AND 11(2) »0HH 60SUB 1840 
1800 HCCL0R= 0! POR K = a IO 191! MPLOI 0,K 10 279,K: *11 

1810 MC0L0R= 1! POR K « 31 IO 14*: HPL01 O.h IO 279,ni *11 i HCOlOR 

« 3 

iaa « = 10 :A» ; *U* ISTMTE, SIO CARIO*»..GOSUI 1910 
1830 PRIMI Mi'RUN6C0PA.2‘ 

1840 HCOLOR= 0: POR K = a IO 191! HPL01 0,K IO 279,K: «XI 

1850 I = ffl!Y = 10O!A» = ‘W01 6I0CARE ANCORA • ♦ NO» * • ’*i SOSUS I 

910 

1860 SEI 7»: IP 2» = ’S’ I>€N REIUM 

1870 I = btY = 120:At = 'ARRIVEDERCI ALLA PROSSIMA vaiA 1 4 MCI! SOS 
UB 1910 

1880 POR K * I IO 1000! «Il 
1890 IE1I : HO* : END 

1900 POME 232,SH - IMI (SH / 2561 « 256: POME 233, INI 191 / 256): 
REIUM 

1910 9i = Bi: SOSUB 1900 
19» HCOLOR= 3 

1930 DRAM 61 AI I,Y: POR CH • 1 10 LEM (All: DRAM ASC I NIM (At,C 
H, 1)1 - 31: DRAM 60: *11 
I960 REIUM 

1950 HCOLOfc 3: GOSUB MIO 
1960 HCOLOR= 0 

1970 OM 0 60SUB 2230.2050,M70,2090,2110,2130,2150,2170,2190,2210 

1980 SH = B3i SCSUB 1900 

1990 OH R 60SUB 2260,2270,2250,2280 

2000 RETUM 

MIO SH = B2: 60SUB 1900 
2Cta DRAM 1 AI 1,Y 

2030 Al = PEEK I - I6336HAI = PEEX : - I6336):AH * PEEK : - 1433* 

1 

2040 REIUM 

2050 DRAM 2 AI X * 6,Y * 3 
2060 RETUM 

2070 DRAM 3 AI I ♦ 6.Y ♦ 3 
2080 REIURN 

2090 DRAM 4 AI I ♦ 6,Y ♦ 3 
2100 REIURN 

2110 DRAM 5 AI X ♦ 10,Y ♦ 3 
21 a REIUM 

2130 DRAM 6 Al X ♦ 6,Y * 3 
2140 REIUM 

2150 DRAM 7 AI I ♦ 6,Y ♦ 3 
2160 REIUM 

2170 DRAM 8 Al I ♦ 10,Y * 3 
2180 REIUM 

2190 DRAM 9 AI X ■» 8,Y » 9 
2200 REIUM 

2210 DRAM 10 Al X ♦ 6,Y ♦ 3 
22a REIUM 

2 230 DRAM 11 AI X ♦ 6,Y ♦ 9 
2240 REIUM 

2250 HCOLOR= 0: DRAM 7 AI X ♦ 4,Y * 19: REIUM 

2260 HCCLOR= 5: DRAM 4 AI X ♦ l,Y ♦ 17: REIUM 

2270 HCOLOR= 5: DRAM 5 AI X ♦ 2,Y r 13: REIUM 

2280 HCOLOR= 0: DRAM 6 AI X ♦ 3,Y ♦ 17: REIUM 


*6000.66E7 
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31 

30 

OO 

94 

60D8- 

21 

54 

OB 

AB 

32 

39 

33 

30 

60E0- 

OO 

AC 

21 

5E 

OB 

4F 

4C 

DO 

60E8— 

48 

52 

28 

31 

29 

3A 

54 

4C 

60F0— 

DO 

31 

3A 

AB 

32 

39 

34 

30 

60F8- 

OO 

C4 

21 

68 

OB 

4F 

4C 

DO 

6100- 

48 

52 

28 

32 

29 

3A 

54 

4C 

6108- 

DO 

32 

3A 

AB 

32 

39 

34 

30 

61 ÌO- 

OO 

D6 

21 

72 

OB 

4F 

4C 

DO 

61 18- 

48 

52 

28 

33 

29 

3A 

54 

4C 

6120- 

DO 

33 

OO 

E7 

21 

7 C 

OB 

4B 

6128- 

31 

28 

31 

29 

DO 

55 

42 

28 

6130- 

54 

4C 

29 

OO 

FO 

21 

86 

OB 

6138- 

4D 

4E 

DO 

31 

OO 

F6 

21 

90 

6140- 

OB 

B1 

OO 

IO 

22 

95 

OB 

B2 

6148- 

20 

44 

49 

53 

45 

47 

4E 

4F 

6150- 

20 

43 

41 

52 

54 

45 

20 

50 

6158- 

52 

45 

53 

45 

OO 

1D 

22 

9A 

6160- 

OB 

98 

31 

36 

3A 

59 

DO 

35 

6168- 

35 

OO 

2D 

22 

A4 

OB 

AD 

4D 

6170- 

4E 

DO 

31 

C4 

58 

DO 

31 

38 

6178- 

30 

OO 

3D 

22 

AE 

OB 

AD 

4D 

6180- 

4E 

DO 

30 

C4 

58 

DO 

31 

31 

6108- 

34 

OO 

4C 

22 

B8 

OB 

53 

48 

6190- 

DO 

42 

32 

3A 

BO 

39 

39 

30 
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Scopa a tre carte 


APPLE II 


Seguito listato 4. 


6198- OO 6F 22 C2 OB 92 33 3A 

61AO- 94 31 C5 58 2C 59 3A 92 

61A8- 30 3A 94 31 32 C5 58 C9 

61BO- 32 2C 59 CB 32 3A 98 30 

61B8- 3A 92 33 OO 75 22 CC OB 

61 CO- B1 OO 87 22 D6 OB 92 31 

61C8- 3A BO 31 35 30 30 3A 92 

61 DO- 30 3A B1 OO A9 22 DB OB 

61DB- B2 20 43 4F 4E 56 45 52 

61E0- 53 49 4F 4E 45 20 49 4E 

61E8- 44 49 43 45 2D 54 41 53 

61FO- 54 49 45 52 41 OO B5 22 

61F8- EO OB AD 50 52 DO 30 C4 

6200- B1 OO C3 22 EA OB 46 46 

6208- DO 31 3A 44 50 DO 31 OO 

6210- CF 22 F4 OB 81 44 49 DO 

6218- 32 CI 35 OO DB 22 FE OB 

6220- 81 44 59 DO 31 CI 37 OO 

6228- F4 22 08 OC AD 50 54 28 

6230- 44 59 29 DI CF 4B 31 28 

6238- 44 49 29 C4 33 31 31 30 

6240- OO 07 23 12 OC AD 50 54 

6248- 28 44 59 29 DO 30 C4 33 

6250- 31 31 30 OO 19 23 1C OC 

6258- BO 33 31 35 30 3A 44 50 

6260- DO 44 50 CB 31 OO 1F 23 

6268- 26 OC 82 OO 25 23 30 OC 

6270- 82 OO 30 23 3A OC 49 DO 

6278- 44 50 C9 31 OO 36 23 44 

6280- OC B1 OO 41 23 4E OC 81 

6288- 4B DO 31 CI 37 OO 5B 23 

6290- 58 OC AD 44 59 DO 4B C4 

6298- 45 4C 24 28 44 50 29 DO 

62AO- E7 28 38 33 C8 4B 29 OO 

62AB- 61 23 62 OC 82 OO 67 23 

62BO- 6C OC B1 OO 7B 23 76 OC 

62B8- B2 56 45 52 49 46 49 43 

62CO- 41 20 53 43 4F 50 41 OO 

62C8- 98 23 80 OC 81 41 DO 31 

62DO- CI 37 3A 50 53 28 41 29 

62DB- DO 30 3A 50 45 28 41 29 

62EO- DO 30 3A 82 OO A7 23 8A 

62E8- OC AD 45 58 DO 31 C4 33 

62FO- 33 33 30 OO B2 23 94 OC 

62F8- 81 41 DO 31 CI 37 OO E9 

6300- 23 9E OC AD 50 54 28 41 

6308- 29 DO 53 4B CE 50 54 28 

6310- 41 29 DO 53 59 CE 50 54 

6318- 28 41 29 DO 53 58 CE 50 

6320- 54 28 41 29 DO 53 57 C4 

6328- 50 53 28 41 29 DO 30 3A 

6330- AB 33 32 37 30 OO 05 24 

6338- AB OC AD 50 54 2B 41 29 

6340- DO 53 4C C4 50 53 28 41 


6348- 29 DO 30 3A AB 33 32 37 

6350- 30 OO 15 24 B2 OC 50 53 

6358- 28 41 29 DO 50 32 28 41 

6360- 29 OO 1F 24 BC OC AB 33 

6368- 32 38 30 OO 2F 24 C6 OC 

6370- 50 45 28 41 29 DO 50 32 

6378- 28 41 29 OO 35 24 DO OC 

6380- 82 OO 43 24 DA OC 53 53 

6388- DO 30 3A 43 4D DO 30 OO 

6390- 4E 24 E4 OC 81 41 DO 31 

6398- CI 37 OO 5E 24 EE OC 53 

63AO- 53 DO 53 53 C8 50 53 28 

63A8- 41 29 OO 64 24 F8 OC 82 

63BO- OO 74 24 02 OD AD 45 58 

63B8- DI CF 31 C4 33 33 39 30 

63CO- OO 82 24 OC OD 53 53 DO 

63C8- 30 3A 43 4D DO 30 OO 8D 

63DO- 24 16 OD 81 41 DO 31 CI 

63D8- 37 OO 9D 24 20 OD 53 53 

63EO- DO 53 53 CB 50 32 28 41 

63E8- 29 OO A3 24 2A OD 82 OO 

63FO- BO 24 34 OD 53 53 DO 53 

63F8- 53 C8 42 54 OO C5 24 3E 

6400- OD AD 53 53 DO 30 C4 43 

6408- 4D DO 31 3A AB 33 36 30 

6410- 30 OO D5 24 48 OD AD 53 

6418- 53 CF 31 30 C4 33 36 30 

6420- 30 OO DE 24 52 OD 54 55 

6428- DO 30 OO EC 24 5C OD 54 

6430- 55 DO 45 55 28 53 53 29 

6438- OO FB 24 66 OD AD 54 55 

6440- DO 34 C4 33 35 30 30 OO 

6448- 06 25 70 OD 81 41 DO 31 

6450- CI 33 OO 1C 25 7A OD AD 

6458- 55 32 28 41 29 DO 53 53 

6460- C4 54 55 DO 54 55 CS 31 

6468- OO 22 25 84 OD 82 OO 2D 

6470- 25 8E OD 81 41 DO 31 CI 

6478- 37 OO 43 25 98 OD AD 50 

6480- 32 28 41 29 DO 53 53 C4 

6488- 54 55 DO 54 55 CB 31 OO 

6490- 49 25 A2 OD B2 OO 58 25 

6498- AC OD AD 54 55 DO 34 C4 

64AO- 33 36 30 30 OO 67 25 B6 

64AB- OD AD 54 55 DO 33 C4 52 

64BO- 48 DO 34 OO 76 25 CO OD 

64B8- AD 54 55 DO 32 C4 52 48 

64CO- DO 38 OO 8B 25 CA OD AD 

64C8- 54 55 DO 31 CE 54 55 DO 

64DO- 30 C4 52 48 DO 31 32 OO 

64D8- 9F 25 D4 OD AD 4D 41 DO 

64EO- 31 CE 4D 41 DO 32 C4 33 

64E8- 35 39 30 OO B1 25 DE OD 

64FO- AD 4D 41 DO 33 C4 52 48 

64F8- DO 52 48 C8 35 OO C4 25 

6500- EB OD AD 4D 41 DO 34 C4 
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Scopa a Ire carie 


APPLE II 


Seguito listato 4. 







65FO- 

OE 

56 

46 

28 

55 

43 

28 

44 










65F8— 

41 

29 

29 

DO 

31 

OO 

B7 

26 

6508- 

52 

48 

DO 

52 

48 

CB 

31 

35 

6600— 

7E 

OE 

82 

OO 

C3 

26 

88 

OE 

65 ÌO- 

OO 

D7 

25 

F2 

OD 

AD 

4D 

41 

6608— 

81 

44 

41 

DO 

31 

C 1 

33 

OO 

6518- 

DO 

35 

C4 

52 

48 

DO 

52 

48 

6610- 

D4 

26 

92 

OE 

56 

46 

28 

55 

6520- 

C8 

33 

30 

OO 

EB 

25 

FC 

OD 

6618- 

42 

28 

44 

41 

29 

29 

DO 

31 

6528- 

AD 

4D 

41 

DO 

36 

C4 

52 

48 

6620- 

OO 

DA 

26 

9C 

OE 

82 

OO 

E6 

6530- 

DO 

52 

48 

C8 

31 

30 

30 

OO 

6628- 

26 

A6 

OE 

81 

44 

41 

DO 

31 

6538- 

F5 

25 

06 

OE 

AB 

33 

36 

31 

6630- 

CI 

37 

OO 

F7 

26 

BO 

OE 

56 

6540- 

30 

OO 

FE 

25 

IO 

OE 

52 

48 

6638- 

46 

28 

50 

54 

28 

44 

41 

29 

6548- 

DO 

30 

OO 

04 

26 

1A 

OE 

B1 

6640- 

29 

DO 

31 

OO 

FD 

26 

BA 

OE 

6550- 

OO 

1B 

26 

24 

OE 

B2 

20 

53 

6648- 

82 

OO 

06 

27 

C4 

OE 

44 

42 

6558- 

55 

42 

52 

2E 

20 

35 

20 

45 

6650- 

DO 

31 

OO 

13 

27 

CE 

OE 

81 

6560- 

20 

36 

20 

4D 

41 

4E 

4F 

OO 

6658- 

44 

41 

DO 

31 

CI 

34 

30 

OO 

6568- 

27 

26 

2E 

OE 

AD 

4D 

41 

DI 

6660- 

26 

27 

DB 

OE 

AD 

56 

46 

28 

6570- 

35 

C4 

DI 

OO 

38 

26 

38 

OE 

6668- 

44 

41 

29 

DO 

31 

C4 

33 

38 

6578- 

AD 

43 

54 

DO 

33 

CD 

49 

4D 

6670- 

34 

30 

OO 

49 

27 

E2 

OE 

47 

6580- 

DO 

31 

C4 

B1 

OO 

49 

26 

42 

6678- 

55 

28 

44 

42 

29 

DO 

44 

41 

6588- 

OE 

AD 

43 

54 

DO 

34 

CD 

49 

6680- 

3A 

47 

57 

28 

44 

42 

29 

DO 

6590- 

4D 

DO 

30 

C4 

B1 

OO 

72 

26 

6688- 

E5 

28 

E9 

28 

E4 

28 

44 

41 

6598- 

4C 

OE 

81 

44 

41 

DO 

31 

CI 

6690- 

29 

2C 

31 

29 

29 

OO 

6B 

27 

65 AO— 

36 

3A 

48 

47 

28 

44 

41 

29 

6698- 

EC 

OE 

AD 

47 

57 

28 

44 

42 

65 AB— 

DO 

30 

3A 

47 

55 

28 

44 

41 

66AO- 

29 

DO 

30 

CD 

47 

55 

28 

44 

65BO— 

29 

DO 

30 

3A 

47 

57 

28 

44 

66A8- 

42 

29 

DI 

CF 

30 

C4 

47 

57 

65B8— 

41 

29 

DO 

30 

3A 

82 

OO 

7B 

66BO— 

28 

44 

42 

29 

DO 

31 

30 

OO 

65 CO— 

26 

56 

OE 

55 

55 

DO 

31 

OO 

66B8— 

77 

27 

F6 

OE 

44 

42 

DO 

44 

65C8- 

93 

26 

60 

OE 

81 

44 

41 

DO 

66CO— 

42 

C8 

31 

OO 

7D 

27 

OO 

OF 

65 DO— 

31 

CI 

34 

30 

3A 

56 

46 

28 

66C8— 

82 

OO 

8B 

27 

OA 

OF 

4B 

55 

65 DB— 

44 

41 

29 

DO 

30 

3A 

82 

OO 

66DO— 

DO 

30 

3A 

4C 

51 

DO 

31 

OO 

65EO- 

AO 

26 

6A 

OE 

81 

44 

41 

DO 

66D8— 

9A 

27 

14 

OF 

AD 

4D 

41 

DO 

65E8- 

31 

CI 

55 

53 

OO 

B1 

26 

74 

66EO— 

35 

C4 

4F 

59 

DO 

39 

OO 

A9 


Dalla grande 



Jackson 

Tutto sul personal 
computer 


a>\iiTìsa*)L\ 


La rivista di informatica nella didattica per la 
scuola italiana 

9 numeri all'anno: L 2.000 a numero 
Abbonamento: solo L 15.000 


Person! 


L'unica rivista indipendente per gli utenti dei 
personal computer Olivetti 
10 numeri all'anno: L. 4.000 a numero 
Abbonamento solo L 35.000 


PERSONAL 

SOFTWARE 

Aspetti e problemi del software per personal 
<-otw>ptec.pfr>op)mmi. pjpchi e sistemi 
operativi. 

11 numeri all'anno: L 4.000 a numero 
Abbonamento: solo L 34.000 


La prima rivista europea di personal 
computer, software e accessori. Con test, 
novità, analisi del mercato... 

11 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L 43.000 


PC 


L'unica rivista italiana dedicata ai sistemi 
MS-DOS. Personal computer IBM e 
compatibili 

10 numeri all'anno: L 5.000 a numero 
Abbonamento: solo L. 40.000 


Quando l’informazione 
fa testo 

^ — — 

In busta chiusa Inviate questo coupon a: 
Gruppo Editoriale Jackson 
via Rosellini, 12 - 20124 Mi 

D Desidero ricevere GRATIS un numero 


della Rivista 


(allego L 1.000 in francobolli per 
contributo spese di spedizione) 

□ Inviatemi GRATIS il Catalogo della 
Biblioteca JACKSON (allego L. 1.000 
in francobolli per contributo spese di 
spedizione) 


Nome 


Cognome 
via_ 


CAP 


. Città 


38 
























SHARP MZ-700 


S copo del programma è quello 
di facilitare la fase di progetto 
e realizzazione di dispositivi e- 
lettronici. Chiunque si occupi 
per hobby o per professione di elettroni¬ 
ca, si è trovato spesso di fronte a questo 
problema: dai calcoli risulta che la resi¬ 
stenza deve avere un valore di 39,25 
Kohm; qual è il valore standard da met¬ 
tere nel circuito affinché siano rispettate 
le tolleranze di funzionamento? 

Dato un valore (di resistenza o di capa¬ 
cità) il programma, lavorando sulle se¬ 
rie E12 o E24, a scelta, fornisce: 

• il valore contenuto nella serie richie- 


Calcolo 

delle resistenze 


Un aiuto nella progettazione elettronica 

di Fabio Farina e Daniele Zamparioio 


Listato 1 

- Il programma Calcolo delle resistenze. 


350 

PRINT"8":DIMAC900I:W1$="-AA+A" 




360 

PRINT :PRINT“ QUALE SERIE UUOI UTILIZ 

i 0 

ZARE TRA LA E24 E LA E12 ? C24/12D " 

20 '0 


0 

370 

PRINT iPRINT" CON LA SERIE E12 SONO A 

30 '0 

SCOPO DEL PROGRAMMA 

0 

DISPOSIZIONE UALORI CHE UANNO DA .000 

40 

DATO IL CALORE DI UN RESISTORE 

0 

01 1 

A 8200000 " 

50 '0 

0 DI UN CONDENSATORE DETERMINARE 

380 

PRINT :PRINT" CON LA SERIE E24 SONO A 

60 '0 

- IL UALORE + PROSSIMO AD ESSO 

0 

DISPOSIZIONE UALORI CHE UANNO DA .000 

70 

INCLUSO NELLE SERIE E24 0 E12 

0 

01 l 

A 9100000 " :PRINT 

80 "0 

- IL UALORE FORMATO DALLA RES. 

0 

390 

INPUTQ0* 

90 '0 

EQUIUALENTE DI 2 RESISTORI 

0 

400 

' CONTROLLO CHE LA SERIE SCELTA SIA 

100 ' 

I CUI UALORI SONO CONTENUTI 

0 


DISPONIBILE NEI CALCOLI 

110' 

NELLE 2 SERIE 

0 

410 

IFQ0$="24"THENGOTO670 

120 ' 

I DUE RESISTORI POSSONO ESSERE 

0 

420 

IFQ0$<>"12"THÉNPRINT : PRINT"LA SERIE 

130 ' 

COLLEGATI SIA IN SERIE CHE IN 

0 

RICHIESTA NON E' A DISPOSIZIONE " :G0T036 

140 ' 

PARALLELO 

0 

0 


150 ' 

IL PROGRAMMA NON E' SPECIFICO 

0 

430 

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

160 ' 

PER L' MZ 700 MA PUÒ' ESSERE 

0 

440 

/ 

170 ' 

ADATTATO A QUALSIASI COMPUTER 

0 

450 

' IMPOSTAZIONE CALCOLI SERIE E 12 

180 ' 

UTILIZZANTE IL BASIC 

0 

460 

/ 

190 ' 

IL PROGRAMMA PUÒ' ESSERE 

0 

470 

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$ 

200 ' 

APPLICATO ANCHE A CALCOLI 

0 

480 

HI =12 

210 ' 

SU CONDENSATORI FACENDO 

0 

490 

AC 1D = .00001 

220 ' 

ATTENZIONE AL TIPO DI 

0 

500 

AC2D=.000012 

23© ' 

COMBINAZIONE SERIE-PARALLELO 

0 

510 

AC3J=.000015 

240 ' 

UOLUTA 

0 

520 

AC4D=.000018 

250 ' 


0 

530 

AC5J=.000022 

260 ' 

PRODUCED BT 

0 

540 

AC63=.000027 

270 ' 


0 

550 

AC73=.000033 

280 ' 

Z.F SOFTWARE 

0 

560 

AC83=.000039 

290 ' 


0 

570 

AC9}=.000047 

300 ' 

D. & A. ZAMPARIOLO 

0 

580 

AC 103 = .000056 

310 ' 

F. FARINA 

0 



320 ' 


0 

590 

AC 1 1 ) = .000068 

330 '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0 

600 

AC 123 = .000082 

340 CLS:CLR:GOSUB2580 


610 

GOTO970 
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sta che più si avvicina al valore dato; 

• due valori che. combinati come som¬ 
ma, danno il valore desiderato; 

• due valori che, combinati in parallelo, 
danno il valore desiderato; 

• dando un altro valore, VI cerca il 
valore che. combinato in serie o in pa¬ 
rallelo allo stesso, si avvicini maggior¬ 
mente al valore desiderato. 

Tutto questo 

con le relative tolleranze 

Sia per la serie E12 che per la E24 i 
valori vanno da IO" 5 a IO 6 . 


Il valore lornito in input è controllato ed 
è possibile visualizzare tutta la serie 
scelta. Il programma lavora anche su 
valori capacitivi. In questo caso biso¬ 
gna però tener presente il tipo di combi¬ 
nazione voluta. 

Per calcolare come somma di VI e V2 si 
intende VI + V2. 

Per calcolare come parallelo si intende 
(V1*V2)/(V1 +V2) 

Il programma può, con qualche modi¬ 
fica. essere utilizzato come subroutine 
in programmi più vasti di calcolo e pro¬ 
gettazione elettronica, dato che lascia 
liberi 26.000 byte di memoria 


Con qualche piccola modifica il pro¬ 
gramma può essere adattato per girare 
su qualsiasi macchina. 

REMarks 

340-420 - Impostazione e controllo sulla 
serie di lavoro. 

970-1030 Generazione di tutta la sene 
di lavoro. 

1140-1270 - Introduzione del valore de¬ 
siderato e controllo; ricerca del valore 
più vicino 9 calcolo tolleranze. 
1280-1450 - Scelta calcoli: corpo del 
programma principale. 


620 '22222222222222228222222222822222 
630 ' 

640 ' IMPOSTAZIONE CALCOLI SERIE E 24 
650 ' 

660 '22222222222222222222222222222222 

670 HI=24 

680 AC 1)=.00001 

690 AC2)=.00001I 

700 AC3)=.000012 

710 AC4)=.000013 

720 AC5)=.000015 

730 AC6)=.000016 

740 AC7)=.000018 

750 AC8)=.00002 

760 AC9)=.000022 

770 AC 10) = .000024 

780 AC 11) = .000027 

790 AC 12) = .00003 

800 AC 13)=.000033 

810 AC 14) = .000036 

820 AC 15) = .000039 

830 AC 16) = .000043 

840 AC 17) = .000047 

850 AC 18) = .000051 

860 AC 19) = .000056 

870 AC20)=.000062 

880 AC 21) = .000068 

890 AC22)=.000075 

900 AC23)=.000082 

910 AC24)=.000091 

930 ' 

940 ' GENERAZIONE SERIE COMPLETA 
950 ' 

970 NR=H1 


980 PRINT' SIDCtfiStaSIDffiEBSISUffilSffiUfflaBBBQ P L E 
A S E W A I T " 

990 F0RK=1 T01 1 SPRINT SPRINT splUSICWI# 

1000 FORI = 1 TOH 1 
1010 NR=NR+1 

1020 ACNR)=ACI)*C10TK)=IFACNR)> 1 0THENACN 
R)=INTCACNR)) 

1030 NEXTI,K 

1040 PRINT"BfflfflffilfifflfflSfflB0BUUOI UEDERE TUTTA 
lA SERIE 7 CS/NJ 

1050 INPUTQ1 i : IFQ1♦="S"THENF0RI = 1 TONR sPR 
lNT" ! ';ACI) :NEXT:GOTO1070 

1060 IFQ1$<>"N"THENGOTO1040 
1070 PRlNT"ffllflffl UUOI I RISULTATI SU CARTA 
7 [S/N) M 

1080 GET R<-$ •' IFR<-$="S"THENPLOT 0N 
1090 IFR<-$<> "N"THEN1080 
1 100 
H10 ' 

1120 ' INIZIO CALCOLI 
1130 ' 

1140 '################################## 
1150 PRINTSPRINT" INTRODUCI IL UAL0RE DE 
SIDERAT0 " :K1=C.00001*.000011)/C.000021) 

1160 INPUTRE s1FC CRE<K1J + CRE> C9100000*2)) 
TTHENPRINT" UAL0RE FUORIGAMMA" : G0T01070 
1170 MIN= + 2*C10t30) :F0RI = 1 TONR 

1180 B1=ABSCRE-ACI)) 

1190 IFCEM <I1IN)THENMIN=B1 :PI = 1 
1200 NEXT! 

’210 PRINT" IL UAL0RE CONTENUTO NELLA 
SERIE RICHIESTA CHE PIU' SI AUDI 
CINA AL UALORE DESIDERATO E' ":PR 

INT 

1220 PRINT" "ìACPI) 


40 



Calcolo delle resistenze 


SHARP MZ-700 


Seguilo listalo Calcolo delle resistenze. 

1230 PRINT :PRINT" CON UNA DIFFERENZA DI 
•’ ;MIN 

1240 C1=MIN/ACP13 

1250 PRINTSPRINT" DIFFERENZA / UALORE 
DESIDERATO = "SCI :C2=C1*100 
1260 PRINT: PRINT" ERRORE PERCENTUALE " 

J 

1270 PRINTUSING"##.#####"JC2 
1280 PRINT :PRINT" HAI A DISPOSIZIONE UN 
OALORE E UUOI UTILIZZARLO PER OTTENER 
E IL OALORE DESIDERATO ? CS/N3" 

1280 INPUTQ 1 *: IFQ1$="S"THENG0T02170 
1300 IFQ1 $<>"N"THENG0T01280 
1310 PRINT :PRINT" UUOI CHE IL OALORE 
DESIDERATO SIA CALCOLATO COME SOMnA DI 
2 UALORI INCLUSI NELLA SERIE RICHIESTA 
'’CS/NI" 

1320 INPUTQ1$ 

1330 IFQ1$="S"THENGOSUB1 51 0 
1340 PRINT :PRINT" OUOI CHE IL UALORE 
DESIDERATO SIA CALCOLATO COI1E PARALL 
ELO f CUI*023/CUI+U23 3 DI 2 

OALORI INCLUSI NELLA SERIE RICHIESTA 
•> CS/N3" 

1350 INPUTQ2* 

1360 IFQ2$="S"THENG0SUB1830 
1370 PLOT OFF:PRINT:PRINT" UUOI INTROD 
URRE ALTRI OALORI CON RIFERIMENTO AL 
LA STESSA SERIE ? CS/N3 " 

1380 INPUTQ3* 

1390 IFQ3$="S"THEN1070 
1400 '================================ 

1410 7 

1420 ' FINE DEL PROGRAMMA PRINCIPALE 
1430 ' 

1 440 '================================ 

1450 CLS:END 

1 460 /11 " n " 11 " " " 11 " 1111 " " ,( 11 " •• 11 •• >* "<* 
1470 ' 

1480 ' SUBROUTINE CALCOLO COME SOMMA 
1490 ' 

1 500 / " 11 " " " " " " 11 " " " " " " " " " ■■ <* >' " " " " •' » «• »• » <• >• 
1510 H2=0 
1520 H2=H2+1 

1530 IFCACH23<RE3THEN1520 
1540 H2=H2-1 

1550 PRINTSPRINT" CALCOLO DEL OALORE RIC 
HIESTO COME SOMMA CON TOLLERANZA .5*":E1 
=RE+RE*C.5/1003:E2=RE-RE*C.5/1003 


1560 PRINT"fflffl PLEASE WAIT..":FORI=lT0H2 
1570 FORJ=1T0H2 
1580 E3=AC13+ACJ 3 

1590 IFC CE3<E13*CE3>E23 3THENCOLOR,,0, 7:p 
RINT" I OALORI SONO ";ACI35" ";ACJ3:COL 
OR,,7,0 =G0T01770 
1600 NEXTJ,I 

1610 PRINT SPRINT" IL OALORE PIU' UICINO 
RAGGIUNTO DALLA SOMMA NON RIENTRA NELLA 

TOLLERANZA DEL .5* CON LA SERIE E M }Q 
0 $ 

1620 PRINTSPRINT" CALCOLO DEL OALORE RIC 
HIESTO COME SOMMA CON TOLLERANZA 1*":E 
1=RE+RE*C 1/1003 :E2=RE-RE*C 1/1003 
1630 FORI=1T0H2 
1640 FORJ=1T0H2 
1650 E3=ACI3 + ACJ 3 

1660 IFCCE3<E13*CE3>E233THENPRINT" I UAL 
ORI SONO ";ACI35" " ; ACJ3sGOTOI770 

1670 NEXTJ,I 

1680 PRINT" IL OALORE PIU' UICINO RAGGIU 
NTO DALLA SOMMA NON RIENTRA NELLA TOLLE 
RANZA DEL \x CON LA SERIE E ";Q0$ 

1690 PRINTSPRINT" CALCOLO DEL OALORE RIC 
HIESTO COME SOMMA CON TOLLERANZA 2.5*" :E 
1=RE+RE* C 2.5/100 3 :E2=RE-CRE* C 2.5/100 3 3 
1700 FORI=1T0H2 
1710 FORJ=1T0H2 
1720 E3=AC13 + ACJ 3 

1730 IFCCE3<E13*CE3>E233THENPRINT" I UAL 
ORI SONO " ;AC13 5" " ;ACJ3sGOTOI770 

1740 NEXTJ,I 

1750 PRINT" IL OALORE PIU' UICINO RAGGIU 
NTO DALLA SOMMA NON RIENTRA NELLA TOLLE 
RANZA DEL 2.5* CON LA SERIE E ";Q0$ 

1760 PRINTSPRINT" IL CALCOLO PER SOMMA N 
ON PROCEDE OLTRE" 

1770 RETURN 

1780 'IllTItXlXlXlXlXXtltXlXJiXtXlXtXJCtt' 

1790 ' 

1800 'SUBROUTINE CALCOLO COME PARALLELO 
1810 ' 

1820 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
1830 H2=NR 
1840 H2=H2-1 

1850 IFCACH23>RE3THEN1840 
1860 H2=H2+I 

1870 PRINTSPRINT" CALCOLO DEL OALORE 
RICHIESTO COME PARALLELO CON TOLLERAN 
ZA .5*" :E1=RE+RE*C.5/1003:E2=RE-RE*C . 5/1 
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003 

1880 PRINT"ffltfllfl PLEASE UAIT...B" 

1890 F0RI=NRT0H2STEP-1 

1900 FORJ=NRTOH2STEP-1 

1910 E3=CACI3*ACJ33/CACI3+ACJ33 

1920 IFC CE3<E13*CE3>E23 3THENC0L0R, , 0,7 :P 

RINT" I UALORI SONO " ;RC 1 3 ; " ";ACJ3:COL 

OR,,7,0: GOTO2100 

1930 NEXTJ,I:PRINT 

1940 PRINT" IL UALORE PIU' UICINO RAGGIO 
NTO DAL PARALLELO NON RIENTRA NELLA T 
0LLERAN2A DEL .5* CON LA SERIE E " ;Q0$ 
1950 PRINT :PRINT" CALCOLO DEL UALORE 
RICHIESTO COflE PARALLELO CON TOLLERAN 
?A 1*" :E1=RE+RE*C1/1003 :E2=RE-RE*C1*1003 
i960 F0RI=NRT0H2STEP-1 
1970 FORJ=NRTOH2STEP-1 
1980 E3= f.AC13*ACJ 3 3/CAC13+AC J 3 3 
1990 IFC f.E3<E1 3*CE3>E23 3THENPRINT" I UAL 
ORI SONO "SACnr " ; A C J 3 :GOTO2100 
2000 NEXTJ,I :PRINT 

2010 PRINT" IL UALORE PIU' UICINO RAGGIO 
NTO DAL PARALLELO NON RIENTRA NELLA T 
0LLERAN2A DEL 1* CON LA SERIE E " ;G)0$ 
2020 PRINT:PRINT" CALCOLO DEL UALORE RIC 

HIESTO COME PARALLELO CON TOLLERANE 

A 2.5*" :E1=RE+RE*C2.5/1003:E2=RE-RE*C2.5 
'1003 =PRINT 

2030 FORI=NRT0H2STEP-1 

2040 F0RJ=NRT0H2STEP-1 

2050 E3=f.ACI3*ACJ33/CACI3+ACJ33 

2060 IFC CE3<E 1 3*CE3>E23 3THENCOLOR,,0,7 ; P 

RINT" I UALORI SONO ";ACI3;" "JACJ3:COL 

OR,,7,0:G0T02100 

2070 NEXTJ,I 

2080 PRINT" IL UALORE PIU' UICINO RAGGIU 
NTO DAL PARALLELO NON RIENTRA NELLA T 
OLLERAN2A DEL 2.5* CON LA SERIE E ";Q0* 
2090 PRINT :PRINT" IL CALCOLO CONE PARALL 
ELO NON PROSEGUE OLTRE" 

2100 RETURN 

2110 '********************************* 
2120 ' 

2130 ' SUBROUTINE CALCOLO PER 
2140 ' COFIB INAZIONE CON IL UALORE DATO 
2150 ' 

2160 '********************************* 
2170 PRINT :PRINT" INTRODUCI IL UALORE CH 


E HAI" 

2180 INPUTRX 

2190 IFCCRX<.00001 3 + CRX>91000003 3THENPRI 
NT :PRINT" UALORE FUORI GAMIIA ":GOTO2170 

2210 ' 

2220 ' SCELTA AUTONOflA PER IL CALCOLO 
2230 ' COME SOnnA 0 COME PARALLELO 
2240 ' 

2250 't*t*******************t******** 
2260 IFRX <RETHENGOSUB2360 
2270 IFRX>RETHENGOSUB2500 
2280 IFRX*RETHENPR INTERI NT "UALORE COINC 
I DENTE" 

2290 GOTO1310 

2310 ' 

2320 ' CALCOLO COME SONNA CON IL UALORE 
2330 ' DATO 
2340 ' 

2360 PRINT :PRINT"CALCOLO CONE SONNA " 
2370 NIN=2*10T30:FORI=1TONR 
2380 B2=ABSCRE-CRX+AC1333 
2390 IFCB2<NIN3THENNIN=B2:K7=I 
2400 NEXTI 

2410 PRINT :PRINT"IL UALORE E' "JACK73 
2420 PRINT"ERRORE PERCENTUALE = ";CNIN*1 
003/ACK73 
2430 RETURN 

2440 '????????????????????????????????? 
2450 ' 

2460 ' CALCOLO CONE PARALLELO CON 
2470 ' IL UALORE DATO 
2480 ' 

2490 '????????????????????????????????? 
2500 PRINT :PRINT"CALCOLO CONE PARALLELO" 
2510 NIN=2*10T30 :FORI = 1TONR 
2520 B2=ABSCRE-CCRX*ACI33/CRX+ACI3333 
2530 IFCB2<NIN3THENNIN=B2:K7=I 
2540 NEXTI 

2550 PRINT :PRINT"IL UALORE E' "JACK73 
2560 PRINT"ERRORE PERCENTUALE = " }CNIN*1 

003/ACK73 
2570 RETURN 
2580 PRINT"0" 

2590 CURS0R5,5:PRINTC7,23" 

• I 

2600 CURS0R5,6 :PRINTf.7,23 " 
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SHARP MZ-700 


Seguito listato Calcolo delle resistenze. 


2610 

CURS0R5,7:PRINTC7» 2]" 

•1 


2620 

CURS0R5 ,8 :PRI NT[7,2]" 

R E S I S 

T E 

N 2 E 


2630 

CURS0R5i9:PRINTC7> 2]" 

«1 


2640 

CURS0R5, 1 0 :PRINTf.7» 2]" 
•1 


2650 

CURS0R5, 1 1 :PRINTr.7,2]" 
•1 


2660 

CURSORI 6,13:PRINTC7,3] 

"PRODUCED" 

2670 

CURSORI 9,14:PRINTC7> 3] 

"BY" 

2680 

CURSORI 4»15:PRINTC7)3] 

“2.F SOFTWARE 

2690 

CURS0R5, 17 : PRINTr.0> 7] " 

WR 

ITTEN 


2700 

CURS0R5)18 JPRINTC0)7]" 


BY 

tl 


2710 

CURS0R5,19 :PRINTC0j 7]" 

F.FARINA 8. 

D. 

2AI1PARI0L0 " 


2720 

F0RD=4T06 


2730 

COLOR,,6 


2740 

FOR X=1 T05STEP2 


2750 

FOR Y=4 T045 


2760 

SET X,Y,D 


2770 

NEXT Y 


2780 

NEXT X 


2790 

FOR X=4 T08STEP2 


2800 

FOR Y=4 T045 


2810 

SET CX+67),Y,0 


2820 

NEXT Y 


2830 

NEXT X 


2840 

FOR X=4 T072 


2850 

FOR Y=4 T08STEP2 


2860 

SET X,Y,D 


2870 

NEXT Y 


2880 

NEXT X 


2890 

FOR X=4 TO 72 


2900 

FOR Y=41TO 45 STEP2 


2910 

SET CXD.Y.D 


2920 

NEXT Y 


2930 

NEXT X=CLR .'COLOR, ,7,1: 

FORI=1TO3000 : 

: : ::NEXT=CLS:RETURN 
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Sprite 

Definiamo figure animate 

di Massimo Modelli 


U na delle applicazioni più af¬ 
fascinanti dei personal com¬ 
puter è forse la grafica, ed in 
particolare quella d'anima¬ 
zione. La realizzazione di effetti d’ani¬ 
mazione da BASIC lascia però alquanto 
a desiderare sia per la discontinuità del 
movimento che per l'eccessiva lentezza. 
Normalmente, infatti, il programma non 
si limiterà a muovere gli oggetti sullo 
schermo, ma dovrà anche svolgere vari 
compiti di elaborazione e controllo. Per 
rendere il più semplice possibile la rea¬ 
lizzazione di programmi di questo gene¬ 
re abbiamo pensato di scrivere una rou¬ 
tine in linguaggio macchina, che realiz¬ 
zasse sullo Spectrum la gestione degli 
sprite. 

Per sprite si intendono quelle figurine, 
rese famose dal C 64, dotate di movi¬ 
mento proprio e variamente sovrappo¬ 


nibili tra loro e con lo sfondo: esse costi¬ 
tuiscono un valido e potente strumento 
per la realizzazione di programmi, an¬ 
che complessi, dotati di grafica anima¬ 
ta. Risulta infatti possibile per il pro¬ 
gramma valutare situazioni anche com¬ 
plicate, e prendere decisioni, mentre i 
folletti si muovono autonomamente 


(folletto è proprio la traduzione di sprite 
e d’ora in poi utilizzeremo il termine ita¬ 
liano per indicare le figure, mentre con 
l'altro indicheremo la routine in linguag¬ 
gio macchina). Ovviamente, vi sono del¬ 
le differenze tra gli sprite del C 64 e 
quelle da noi realizzate, in quanto, men¬ 
tre sul Commodore sono rese per mez- 


Llstato 1 - Il programma Sprite. 


ÌEM .. 

2 DEF FN 
4. DEF FN 
10 REM ** 
** 


L f ||R|0 


Mit 


h (a) *INT (a/i 
l ( b)*b-2S6*FN h(b) 
SPRITE: una utility 
by Massimo Modelli 


20 PAPER 1: INK 9: BORDER 1: C 
LS : PRPER 8 

30 LET a=60000: INPUT "Ramtop 

a " ; *:a) ; " (s/n) " ; LINE «t IF a 

$ = "n " THEN INPUT "ualore ramtop 

= > " ; a 

-aer ri cqq a 

40 DIM d(14,2): DIM p(8,15) 

41 PRINT TRB 5."RILOCRZIONE RO 

UTTINES""TAB 11;"da a 

lung.controllo"'"sprite" 

42 PRINT 'TRB 5;"SELEZIONE CON 

TROLLI.start TRB 16;"sto 

o ."'"routine ausiliaria .. 


43 PRINT 'TRB 5;"SPRITE ROUTIN 

E.data ." 

'"maschera .. switch ." 

44 PRINT : GO SUB 3000 

45 LET a =0 : LET b«4: GO SUB 85 

0 

SO PRINT RT 2,27;"36";AT 3,27; 
"705": LET orgl=64511 

70 PRINT «0; PRPER 0;"Tasti: 6 
,7 e enter per terminare" 

80 IF INKEY *xCHR$ 13 THEN GO T 
0 120 

90 LET orgl=orgl+256*((INKEYi* 
"7")-(INKEYi=”6")): IF orgl>6527 
9 THEN LET 0rg1=0rg1-256 : BEEP . 
3,20 

100 IF ergi<32768 THEN LET orgl 
=0 rg1+256 BEEP .3,20 
110 PRINT RT 2 . 11;Orgl: PAUSE 8 
GO TO 80 

120 LET or92*0: LET STARTh-l+FN 


h (orgl) : PRINT RT 2,19;0rg1+36 : 

IF org1< =64767 THEN LET org2»or 
g1+36: PRINT RT 3,ll.org2;AT 3,1 
9;o rg2+704 

125 INPUT PRPER 0;"origine per 
sprite = >"; LINE a$ IF a**"" THE 
N GO TO 140 

130 LET org2=UAL a*: PRINT RT 3 
,ll;org2;TAB 19;org2+704;" " : I 

NPUT "OK? "; LINE ai: IF a$="n" 
THEN GO TO 125 

140 IF RBS (orgl + 17.5-o rg2-3S2) 
<370.5 THEN PRINT «0; FLASH 1;"R 
TTENZIONE,sovrapposizione!!": BE 
EP .7,20: PAUSE 200: GO TO 125 

145 IF org2+704>65535 THEN PRIN 
T «0; FLASH 1;"Ou t of memory!!": 

BEEP .7.20: PAUSE 200: GO TO 12 
5 

150 RESTORE 2000: FOR i*l TO 14 
READ C: LET C=C+org2 LET d(i, 
1) =FN 1(0: LET d(i,2)=FN h(C): 
NEXT i 

160 GO SUB 860: LET a=5: LET b» 
3: GO SUB 850: PRINT RT 7,27;"NO 

165 PRINT RT 6,10;org1+2;RT 6,2 
7;o rg1+9 

170 INPUT RT 0,0; PRPER 0;"desi 
deri 'appendere una routineausi 
liaria (s/n) "; LINE ai: LET cal 

1*0: LET aUXl=0; LET auxh=0 

180 IF ai="s" THEN LET Cai 1=205 
INPUT "indirizzo di ingresso? 

"; C : LET aUXh =FN h(C): LÈT aUXl* 
FN 1(0: PRINT RT 7,27; C 

190 GO SUB 860: LET a=9: LET b = 
3: GO SUB 850 

200 PRINT RT 10,27;org2+535;RT 
il,li;"OR";RT 11,27;orga+144: le 
T mase=182 

210 INPUT PRPER 0;"maschera oK? 

"; LINE ai IF a t < >"n" THEN GO 
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Sprite 


ZX SPECTRUM 


zo di un dispositivo hardware, quelle 
che presentiamo sono ovviamente una 
realizzazione software e, nonostante 
siano in linguaggio macchina, la loro 
esecuzione sottrae del tempo alla CPU. 
Pertanto si è rinunciato alla complessi¬ 
tà della gestione gerarchica dei folletti e 
si è optato per una semplice sovrappo¬ 
sizione dei folletti tra loro e con lo sfon¬ 
do; inoltre, questi non sono caratteriz¬ 
zati dal colore, in quanto la gestione di 
esso sarebbe stata un ulteriore elemen¬ 
to di rallentamento e, date le caratteri¬ 
stiche del colore sullo Spectrum, la rea¬ 
lizzazione non sarebbe stata piena¬ 
mente soddisfacente. Rinunciando a 
queste caratteristiche, è stato possibile 
introdurne altre, più economiche come 
consumo di tempo, che aumentano le 
possibili applicazioni e la flessibilità di 
questo strumento. 


Ad esempio, è possibile definire per ogni 
folletto una maschera, indipendente 
dalla forma del folletto stesso, che agi¬ 
sca sullo sfondo, lasciando una traccia 
o cancellando quello che incontra. Inol¬ 
tre è possibile definire per ogni folletto 
una finestra, che ne limiti i movimenti. 

Il programma di cui al listato 1 prepara 
e riloca, secondo le indicazioni dell'u¬ 
tente, la routine (per il 48 Kbyte) in lin¬ 
guaggio macchina per la gestione dei 
folletti. Tale operazione, che chiamere¬ 
mo pre-programmazione, consiste nel¬ 
lo stabilire i valori iniziali dei vari para¬ 
metri che determinano i comportamenti 
del folletti: vedremo più avanti, analiz¬ 
zando gli input del programma BASIC, 
quali sono e cosa determinano questi 
parametri. 

Per disporre di sprite è necessario se¬ 
guire questi passi: digitare il listato 1, 


controllando con particolare meticolo¬ 
sità i valori delle linee di Data dalla 1000 
alla 2010, salvare il programma (...non si 
sa mai!), farlo eseguire e salvare su di 
una cassetta o cartuccia per microdrive 
la routine in linguaggio macchina pro¬ 
dotta. 

Successivamente basterà caricare il 
programma che dovrà utilizzarla e rica¬ 
ricare in memoria la routine (tutto que¬ 
sto può anche essere diluito in più gior¬ 
ni!). 

Il programma del listato 1 è realizzato in 
modo tale da contenere per default i 
dati per preparare la routine, così che 
sia immediatamente funzionante; di 
conseguenza ne potranno subito di¬ 
sporre anche i meno esperti in questioni 
di rilocazione e affini, per provarla e 
imparare ad usarla. Per ottenere i valori 
di default alle varie richieste basta digi- 


TO 230 

220 LET masc=masc+16*masc*166) 
-16*(masc=182): print rt n,ii;( 
"AND" AND masc=i66> + ("OR " AND m 
àSC =162) GO TO 210 
230 GG SUB 860 PRINT • GO SUB 
3000 LET a=13: LET b»9: GO SUB 
850 

24.0 RESTOPE 4.000: FOR » .1 TO 15 
READ C FOR j=l TO 8- LET p(j, 
i ) =C IF i < 4 THEN LET p(j,i)*C+< 
j-l)*(8*<i=l)+(i*3)) 

250 NEXT j: NEXT i LET C=1 
260 GO SUB 700 

270 INPUT AT 0.0; PAPER 0,"Spri 
t€a>"; ( c-1) , , "Modi fiche,Altro,Fi 
ne=>"; LINE a* 

280 IF a$="a" THEN INPUT PAPER 
0;"quale (0..?)«*"jc LET c*c+l: 
GO TO 260 

290 IF a goffri" THEN GO TO 350 
300 FOR i=l TO 9: GO SUB 760. I 
F a$<>"" THEN LET P(C,i+3*(i >4) + 
(i >5) + < i >8) ) =URL a» GO SUB 710 
310 IF i=4 OR i=5 OR i>7 THEN G 
O SUB 760 IF ago'"' THEN LET p( 
C , i+l+3 * ( i >4) + (i > 5 ) + ( i >8) ) =URL a 
g: GO SUB 710 

320 IF i=4 THEN GO SUB 760: IF 
ago"" THEN LET prc.6)*UAL ag G 
O SUB 710 

330 IF i=4 THEN GO SUB 760. IF 
ago"" THEN LET pi'C,71=UAL ag: G 
O SUB 710 

340 NEXT i PRINT AT 21,0; OUER 
1." ": GO TO 270 
350 IF ago" r" THEN GO TO 270 
360 GO SUB 060: PRINT 80; PAPER 
0; "Attend i , ca r i co i dati in mem 
o r i a " 

370 RESTORE 1000: FOR i=0 TO 35 
: READ C POKE 0<*9l+i,C: NEXT i 
380 FOR i=0 TO 534 READ C: POK 
E 0 i'9 2 + i ,C: NEXT i 


390 LET C =0 fg2+535: FOR i«l TO 
3 FOR j=l TO 15: IF j<4 THEN PO 
KE C.FN l (p i i , j) ) : LET C-C+l: PO 
KE C .FN h (p (i , j) ) 

400 IF j > =4 THEN POKE C,p(i,j) 
410 LET C = C + 1 : NEXT j 
420 POKE C.0: LET C*C+1: POKE C 
.0 LET C=C 4.1 NEXT i 
430 INPUT "Hard copy? line a 
$ IF a * = "ft " THEN COPY 
440 IF 01*92 = 0 rg 1+36 THEN INPUT 
AT 0,0,"5atvo tutto insieme con 
il. nome?" ; LINE ag: 5AUE agCODE 
O T-91,741: STOP 

450 INPUT AT 0,0;"Salvo tt rout 
ines di controllo con il nome? 

•; LINE ag. SAUE agCODE orai,36 


Aiir u I ri I 






LINE 


ine Sprite con il nome? 
ag SAUE agCODE org2,?06 

699 STOP 

700 FOR i»l T0 9: GO SUB 710: N 
EXT i: RETURN 

710 IF i<4 THEN PRINT AT i+12,2 

7, p <C , i ) ; TAB 0 

720 IF i=4 THEN FOR j«0 TO 3: P 
RINT RT i+12,17+4*j;p(C,j+4);TAB 
0 NEXT j 

730 IF i=5 OR i*8 OR i -9 THEN L 
ET jsi +3+ (i >5) +(i>8) PRINT AT i 
+ 12,25; p(C . j);TAB 29;p (c , j+1) ;TA 
B 0 

740 IF i=6 OR i*7 THEN PRINT AT 
i+12,27,p(C,4+i);TAB 0 
750 RETURN 

760 PRINT AT i+11,0; OUER 1;" " 
AT 1+12,0; OUER 1; FLASH 1;" 
INPUT LINE ag: RETURN 
850 FOR i=0 TO b-1: PRINT AT a+ 
OUER 1; PRPER 0;" ",TAB 0: 
i RETURN 

FOR i=0 TO b-1 : PRINT RT a + 
OUER 1; PAPER 1," ",TRB 0: 
i• RETURN 


i ,0; 
NEXT 
860 
i ,0; 
NEXT 
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Seguito llitato Sprlte. 

1000 REM Gestione interruzione 
1010 DfiTR 11,STARTh,62,STARTh-1, 
837,71,237,94,201,237,86,201,243 
,246,229,197,213,217,229,217,CIl 
l , aux l 

1020 DATO auxh,205,d(1,1),d(1,2) 
,217,225,217,209,193,225,241,195 
,56,0 

1030 REM Sprite 

1040 DATA 33,d(12,1),d(12,2),54, 

0,221,33,d(10,1),d(10,2),62,285, 

221,190,15,32.5,221,190,17,40,6, 

205,d(2,1) ,d(2,2) ,33,d (12,1) ,d (1 

2,2) ,52,62,7,1,20,0.221,9,190,48 

,227,201 

1050 REM Muovi 

1060 DATA 221,53,13,32,64,221,12 
6,12,60,221,119,13,221,102,5,221 
,110,4,126,50,d (11,1) ,d(11,2) ,18 
3,62,255,32,5,221,190,17,32,37,2 
21,94,14 

1070 DATA 221,86,15,186,40,3,205 
,d(3,1),d(3,2),221,94,16,221,86, 

17.20.40.20.21.205, d(4,1),d(4,2) 
1080 DATA 221,115,14,221,115,16, 

221.114.15.221.114.17.205, d(5,1) 
.d (5,2) ,201,221,114,18,221,114,1 
9,21,221,114,15,201 

1090 REM Canee i 

1100 DATA 213,205,d(6,1),d(6,2), 
221,86,3,20,21,40,17,229,221,94, 
2,33 .d (13,1) ,d (13,2) 

1110 DATA 6,8,26,masC,119,35,19, 

16.249.225.209.205, d(9,1),d(9,2) 
,201 

1120 REM Scrivi 

1130 DATA 1,0,0,33,d(11,1) , d(11, 
2),221,126,11,203,70,40,1,71,203 
,78,40,4,237,68,128,71,120,130,7 
1,221,126,10 

1140 DATA 203,86,40,1,79,203,94, 
40,4,237.68,129,79,121,131,79,62 
,0,221,119,18,121 

1150 DATA 221,190,6,56,28,221,12 

6.7.214.7.185.56.20.221.126.8.19 
8,7,103,120,188,56 

1160 DATA 10,221,126,9,184,56,4, 

80.89.24.4.221.203.18.206.213.20 
S,d (6,1) ,d(6,2) ,229,6,8 

1170 DATA 17,d(13,1),d(13,2),221 

4é??é‘4?Ì^S:S4!?4ÌÌ?iÌ a ' s ' 19 - 

1180 DATA 198,225,209,213,205,d( 

9.1) ,d(9,2),209,201 
ll90 REM Urti 

1200 DATA 17,20,0,33,d (14,1) ,d (1 

4.2) ,6,255,14,0,4,58, d(12,1),d(1 

2.2) 

1210 DATA 184,40,32,221,126,16,1 


50.48.2,237,68,254,8,48,20,35,12 
6,43,60,40,14 

1220 DATA 61,221,150,17,48,2,237 

, 68,254,8,48,2,203,193,203,9,25, 

120,254,7,32,209 

1230 DATA 221,113,19,201 

1240 REM Exor 

1250 DATA 217,221,110,0,221,102, 

1,217,123,230,7,60,79,205,d(7,1) 
,d (7.2) .229,17 

1260 DATA d(13,1),d(13,2),6,8,19 

7,126,35.70,43,13,40,5,203,16,23 

.24,248,217,174,35,217,18 

1270 DATA 19,62,7,164,238,7,204, 

d (8,1) . d(8,2) ,36,193,16,225,225, 

201 

1280 REM indcal 

1290 DATA 122,237,68,198,191,87, 
254,192,56,6,33,0,64,14,1,201,23 
0,7,103.62,7,203,10,203,10,203,1 
0.162,71 

1300 DATA 123,230.248,176,15,15, 
15,111,62.24,162,246,64,180,103, 
201 

1310 REM Ca 

1320 DATA 62,32,133,111,230,224, 
124,32,2,198,8,230,248,103,254,8 
8,56,3,33,0.64,37,201 
1330 REM PUt 

1340 DATA 123,230,7,60,79,17,255 
,0.65,55,5,40,6,203,26,203,27,24 
,247.213 

1350 DATA 217,225,217,17,d(13,1) 

,d(13,2),6,8,197,6,0,26,19,183,1 
3,40,5,31,203,24,24,248 
1360 DATA 79,217,124,217,166,177 
,119.217.125,217,35,166,176,119, 
43,62,7,164,238,7,204,d(8,1),d(8 
,2) 

1370 DATA 36,193,16,215,201 
2000 REM offset degli indirizzi 
2010 DATA 0,39,123,156,281,342,3 
97,442.465,535,695,696,697,551 
3000 REM schermo 

3010 DATA ’’ ind pat . 

.","ind masc . 

ind dir . . ■ . .. 

3015 DATA "bordi .","v 

elocita' .","ritar 

do .•." , "de lag 


3020 DATA "Old POS 
"new pos . . . 


3030 RESTORE 3000: FOR i«1 TO 9: 

READ a»: PRINT al: NEXT i: RETU 
RN 

4000 REM valori base . 

4010 DATA USR "a",0, USR i ,0,25 
5,16,191,1,1,0,1,120,255,120,255 


tare come risposta il solo tasto Enter e in 
effetti è possibile preparare la routine 
rispondendo solo con Enter, salvo che 
nel mini-menu, dove vi sono tre alterna¬ 
tive. Visto che in tutte queste cose vale 
di più la pratica della grammatica, po¬ 
trete, una volta preparata la routine con 
i valori di default, cancellare con il co¬ 
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mando New il caricatore BASIC e inseri¬ 
re il breve programma dimostrativo del 
listato 2, per osservare il funzionamento 
degli sprite. Nel prossimo numero della 
rivista troverete invece un completo 
programma applicativo di grafica, che 
vi chiarirà i punti, speriamo pochi, rima¬ 
sti oscuri da questa esposizione. 


Pre-programmazione 
degli sprite 

Vediamo ora come si procede alla pre¬ 
parazione degli sprite per mezzo del 
programma BASIC: questo ci darà mo¬ 
do di spiegare anche le caratteristiche 














Sprite 


ZX SPECTRUM | 


della routine e i particolari del suo uso. 
Prima di passare alla preparazione del¬ 
la routine il programma chiede di fissa¬ 
re il valore della RAMtop: il valore di 
default (60000) è sufficiente a coprire la 
routine, se rilocata agli indirizzi suggeri¬ 
ti o poco più in basso. 

Rilocazlone delle routine - Essendo il 
funzionamento degli sprite basato sulla 
gestione delle interruzioni (le interruzio¬ 
ni sono un processo automatico del 
calcolatore che serve generalmente so¬ 
lo per la lettura della tastiera), esse si 
compongono in realtà di due routine; la 
prima ha la funzione di controllare il 
meccanismo delle interruzioni e di .ag¬ 
ganciare la seconda, che è quella che 
realizza praticamente gli sprite (con 
sprite indicheremo nel seguito, a secon¬ 
da del contesto, o tutte e due le routine 
o solo la seconda). La prima di queste 
due routine è rilocabile solo parzial¬ 
mente e i suoi 36 byte possono venire 
posizionati a indirizzi della forma 
255 + N*256, con l'ulteriore limitazione 
di risiedere nei 32 Kbyte più alti di me¬ 
moria; per questa ragione l'origine vie¬ 
ne selezionata usando i tasti 6 e 7, che, 
a passi di 256, propongono tutti gli indi¬ 
rizzi validi. La seconda routine, di 705 
byte tra codice e dati, è invece comple¬ 
tamente rilocabile. E chiaramente più 
comodo che le due routine siano con¬ 


secutive, in quanto possono venire sal¬ 
vate e successivamente caricate in un 
blocco solo: per default il programma 
pone, se possibile, la seconda routine, 
la routine sprite, sopra la prima e solo in 
questo ordine le riconosce come blocco 
unico nel Save. Quando si utilizza la 
routine, gli indirizzi forniti devono ovvia¬ 
mente venire protetti da sovrascrittura 
da parte di altre routine e dal BASIC. 
Selezione controlli - La routine di con¬ 
trollo consiste di tre sezioni; la prima 
permette di agganciare il controllo del 
processore dopo ogni interruzione; la 
seconda svolge l'operazione inversa, e 
cioè sgancia l'insieme delle routine dal 
meccanismo delle interruzioni, e la terza 
presiede alla chiamata, ad ogni interru¬ 
zione e quindi 50 volte al secondo, della 
routine sprite. Le prime due sezioni ven¬ 
gono eseguite per mezzo delle chiama¬ 
te (Randomize Usr) ai due indirizzi forni¬ 
ti dal programma con i nomi Start e 
Stop. Si è considerata l'opportunità di 
associare alla sprite una seconda routi¬ 
ne, che svolga dei compiti complemen¬ 
tari ai suoi, ad esempio di lettura della 
tastiera, per fornire le direzioni di movi¬ 
mento. Per questa ragione viene richie¬ 
sto se si desidera che prima delle routi¬ 
ne sprite venga chiamata un'altra routi¬ 
ne e in caso di risposta affermativa ne 
viene richiesto l'indirizzo di ingresso 


(che non è necessariamente l'origine). 
Al riguardo è da sapere che prima di 
mandare in esecuzione la (o le) routine 
vengono salvati tutti i registri del primo 
set, ad esclusione dei due registri indice 
IX e IY, e la coppia del set ausiliario HL 
sulla catasta, per venire poi ricaricati 
prima di ripassare il controllo alla routi¬ 
ne di scansione della tastiera e quindi al 
BASIC. 

Parametri della routine sprite - Prima 
di definire i parametri iniziali di ogni sin¬ 
golo folletto il programma chiede di de¬ 
terminare il modo di funzionamento del¬ 
la maschera, che vale per tutti i folletti, e 
che può essere And o Or; per default 
viene posto Or. In questa modalità nella 
posizione occupata da ogni folletto che 
ha una maschera attiva viene stampata 
la maschera, mentre in modo And ven¬ 
gono spenti tutti i pixel dello sfondo che 
corrispondono agli zeri della maschera. 
Per modificare il comportamento della 
routine durante l'uso si dovrà agire sul¬ 
la locazione indicata con il nome Switch 
con l'istruzione BASIC "Poke Switch, 
valore", dove il valore sarà 166 per il 
modo And e 182 per quello Or. 
Naturalmente, perché la routine faccia 
ciò che si desidera le si dovranno comu¬ 
nicare dei dati, ed altri dati si dovranno 
poter ricavare per conoscere lo stato 
dei singoli folletti: in particolare la posi- 


Llstato 2 - Un programma dimostrativo. 


:EM **** LISTATO 2 **** 

2 PAPER 2: INK 5: CLS : BORDE 

R 2 

3 PRINT AT 10,10;"Dimostrazio 
ne " ; AT 11,13;"-SPRITE-" 

4. rem la routine viene 
attivata; 64513 e' Start 

5 RANDOMIZE USR 64513 

6 LET Data=65082 

10 REM accensione di tutti i 
folletti 

20 FOR F =0 TO 7 
30 REM un folletto per volta 
40 POKE Data+F*20+1?.23+RND*16 
7 

50 REM New (Y) di F assume un 
valore casuale tra 23 e 
191 (limiti della finestra) 
60 NEXT F 

70 PRINT «0;“Premi s per finir 
e " 

80 REM ciclo di generazione di 
direzioni casuali 
90 FOR i=0 TO 0 STEP 0 
100 rem ciclo a 8 ripetizioni, 


una per folletto 
110 FOR d=65432 TO 65439 
120 REM i valori di d sono 

quelli di Ind Dir per gli 8 
folletti 

130 POKE d,INT (RND*1S>+1 
140 REM come direzione si danno 
valori tra 1 e 15; le 
eventuali fermate sono date 
da valori che non producono 
movimento, come ad es. 3 
150 NEXT d 

160 IF INKEY$»"S" THEN LET i=1 
170 NEXT i 

180 rem spegnimento dei 
folletti 

190 FOR F =0 TO 7 
200 POKE Data+F*20+17 , 255 
210 REM vengono spenti uno per 
uno ponendo New(Y)=255 
220 NEXT F 

230 REM spegnimento della 
routine 
240 PAUSE 2 

250 RANDOMIZE USR 64520 
260 REM 64520 t' Stop 
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Tipo 

Nome 

Byte 

Formato 

Posizione 

1° byte 

1 

Ind Pat 

2 

LH 

0 

1 

Ind Masc 

2 

L H 

2 

1 

Ind Dir 

2 

L H 

4 

1 

Bordi 

4 

XI X2 Y1 Y2 

6 

1 

Velocità 

2 

XY 

10 

1 

Ritardo 

1 


12 

1 

Delay 

1 


13 

l/U 

Old Pos 

2 

XY 

14 

l/U 

New Pos 

2 

X Y 

16 

u 

Bord&Sfon 

1 


18 

u 

Urt-Spr 

1 


19 


Tabella 1 - Organizzazione del dall nella routine Sprlte. 


zione o il verificarsi di urti. Per questa 
ragione la parte finale della routine è 
occupata da una tabella che contiene 
tutti i dati su cui si potrà agire per cono¬ 
scere o modificare il comportamento 
dei singoli folletti; questa tabella inizia 
aH'indirizzo fornito con il nome Data e 
contiene i dati di tutti i folletti. Questi 
sono 8 e sono numerati da 0 a 7; per 
ogni folletto sono usate 20 locazioni di 
memoria, e quindi i dati del folletto 0 
andranno dall'Indirizzo Data + 0 a Da¬ 
ta + 19, quelli del folletto 1 da Data + 20 
a Data+ 39, ecc.: più in generale avre¬ 
mo che il dato nel byte N relativo al 
folletto F andrà letto o scritto nella loca¬ 
zione Data + Ftk20 + N. La tabella 1 in¬ 
dica i nomi dei dati e il valore N del byte 
in cui si trovano; nel caso si tratti di un 
dato a più byte N indica la posizione del 
primo. Sempre nella tabella sono ripor¬ 
tate altre informazioni come: 

• il tipo: alcuni dati avranno interesse 
solo in quanto determinano un compor¬ 
tamento del folletto e saranno pertanto 
dati solo in ingresso (I); altri interesse¬ 
ranno unicamente pervenire consultati 
e conoscere lo stato del folletto e saran¬ 
no pertanto dati in uscita dalla routine 
(U); altri ancora uniranno le due cose e 
saranno indicati con l/U; 

• la lunghezza in byte, alcuni dati occu¬ 
pano un solo byte, altri due, come gli 
indirizzi, e altri ancora ne occupano 4; 

• il tonnato: nel caso degli indirizzi il 
formato è quello standard e quindi pri¬ 
ma la parte bassa (L) e poi quella alta 
(H); nel caso dei dati riferiti a coordinate 
o direzioni si dovrà inserire prima la X 
(eventualmente i due valori di X: prima il 
minore e poi il maggiore) e poi la Y (se 


doppi, sempre prima il minore). 

Il significato e l'uso dei dati è il seguente. 
IND irizzo P Alterni - è l'indirizzo del pri¬ 
mo byte, che costituisce la forma del 
folletto; poiché ogni folletto ha le dimen¬ 
sioni di un carattere (8x8 pixel) esso 
verrà specificato da 8 byte. La loro defi¬ 
nizione è identica a quella dei caratteri 
grafici definibili dall'utente: si consiglia 
anzi il loro uso come forme sia dei folletti 
che delle loro maschere. Per default agli 
8 folletti sono associati i primi 8 caratteri 
grafici (A-H). 

IND irizzo MASChera - £ l'indirizzo della 
maschera di 8 byte, che permette di mo¬ 
dificare lo sfondo sottostante a un fol¬ 
letto, agendo in uno dei due modi sopra 
descritti (vedi anche la figura 1). Non 
sempre la maschera sarà attiva, ma so¬ 
lamente quando la parte alta dell'indi¬ 
rizzo conterrà un valore diverso da 0; in 
questo modo risulta veloce da parte di 
un programma BASIC che utilizza le 


routine sprite attivare e disattivare la 
maschera. È naturalmente conveniente 
che tutte le maschere definite risiedano 
nella stessa pagina di memoria (abbia¬ 
no cioè la parte alta dell’Indirizzo ugua¬ 
le), così che per attivarle si utilizzi un 
valore indipendente dal numero del fol¬ 
letto; lo stesso vale anche per gli indiriz¬ 
zi del pattern qualora si voglia, durante 
l'uso, cambiare l'aspetto di un folletto 
(ad esempio per differenziare il movi¬ 
mento in avanti da uno di lato): in que¬ 
sto modo basterà agire sulla parte bas¬ 
sa dell'indirizzo e quindi su di un solo 
byte anziché su due. Il valore di default 
di Ind Masc è 0. 

IND irizzo DIR ezione - Ovviamente, per 
poter muovere un folletto la routine do¬ 
vrà ricevere un comando esplicito, che 
gli dica se muoverlo o no ed eventual¬ 
mente in quale direzione; la routine in¬ 
terpreta come comando per il movimen¬ 
to il valore scritto nel singolo byte il cui 
indirizzo è dato da Ind Dir. £ così possi¬ 
bile associare a più folletti lo stesso co¬ 
mando di movimento, realizzando fol¬ 
letti di dimensioni maggiori. Come si ve¬ 
de in figura 2, le direzioni di movimento 
sono determinate dalla forma binaria 
del valore passato alla routine, e solo i 
primi 4 bit sono significativi. Nel caso il 
valore sia 0 il folletto non viene ridise¬ 
gnato, in modo da risparmiare tempo. 
Succede però che all’accensione il fol¬ 
letto non verrà disegnato fino a che non 
compia il primo movimento, e questo 
può non essere desiderato; è possibile 
comunque rimediare a questo inconve¬ 
niente, semplicemente facendo seguire 
all'accensione di un folletto un coman¬ 
do di movimento, che non produca in 


Figura 1 • Azione delia maschera: i valori tra parentesi sono da usarsi con “Poke Swltch, Val" per 
ottenere l'effetto desiderato. 


AND 

<1M) 


SFONDO MASCHERA RISULTATO 


OR 

( 182 ) 
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realtà nessun movimento, come ad e- 
sempio un valore maggiore di 15. Ind 
Dir per default viene fatto puntare agli 8 
byte (uno per fofietto ordinatamente) 
del carattere grafico “i" (da 65432 a 
65439). 

È necessario ora introdurre il sistema di 
coordinate adottato nel progettare la 
routine, al quale faremo riferimento nel 
seguito: questo è analogo a quello dei 
comandi di pixel-grafica, salvo il com¬ 
prendere le due linee di testo inferiori, 
non accessibili con quei comandi. 
Chiamando Xs e Ys le coordinate nel 
sistema delle routine sprite avremo 
quindi che Xs dovrà essere compresa 
tra 0 e 255 e Ys avrà invece come range 
l'intervallo tra 0 e 191, estremi compresi, 
(ricordiamo che nel sistema della grafi¬ 
ca dello Spectrum Y varia invece tra 0 e 
175); la relazione tra le coordinate del 
sistema sprite e quelle dei comandi gra¬ 


fici è la seguente: Xs = Xg, Ys = Yg + 16. 
La posizione di un folletto è definita per 
mezzo della posizione nel sistema grafi¬ 
co delle routine sprite dello spigolo su¬ 
periore sinistro. 

Bordi - £ possibile associare ad ogni 
folletto un'area dello schermo, o fine¬ 
stra, che ne delimiti le possibilità di mo¬ 
vimento; i quattro byte della variabile 
Bordi definiscono appunto le dimensio¬ 
ni di questa finestra, indicando rispetti¬ 
vamente il margine destro (XI), il sini¬ 
stro (X2), quello inferiore (Y1) e quello 
superiore (Y2). Nel caso che, in seguito 
ad un ordine di movimento, un folletto si 
trovi a dover andare fuori dalla sua fine¬ 
stra esso verrà spostato nella sua pre¬ 
cedente posizione e l'urto verrà segna¬ 
lato per mezzo dell'apposita variabile: 
questo è anche il caso di una cattiva 


definizione dei bordi (ad esempio, 
quando la larghezza di una finestra è 
minore degli 8 pixel di larghezza del 
folletto o addirittura negativa) o della 
posizione iniziale del folletto (ad esem¬ 
pio, se viene posizionato fuori della sua 
finestra); in questi casi esso non potrà 
muoversi. 

Nel caso invece che un folletto finisca 
fuori dallo schermo (ad esempio dando 
a Y2 un valore superiore a 191 ) la parte 
eccedente verrà disegnata nell'angolo 
superiore sinistro dello schermo stesso, 
evitando che sconfini nella RAM e quin¬ 
di combinando disastri. I valori di de¬ 
fault per questo parametro sono: XI = 0. 
X2 = 255, Y1 = 16 e Y2 = 191; definisco¬ 
no quindi tutto lo schermo, ^f esclusio¬ 
ne delle due righe più basse, quindi la 
parte utilizzabile con i comandi di grafi¬ 
ca. 

Velocità - Per mezzo di questo parame¬ 


tro si definisce, in pixel, l'entità di ogni 
spostamento del folletto, indipendente¬ 
mente per le due direzioni principali; po¬ 
nendo a 0 una delle due componenti, si 
otterrà che il movimento potrà avvenire 
solo nella restante direzione. 

Ritardo - In base al suo principio di 
funzionamento la routine sprite verrà 
eseguita 50 volte al secondo e pertanto 
questo sarà il numero massimo di movi¬ 
menti che un folletto potrà fare; questo 
parametro indica il numero di cicli in cui 
il folletto viene ignorato prima di essere 
preso in considerazione di nuovo e 
quindi condiziona il numero di movi¬ 
menti eseguibili al secondo. Se posto a 
0, il folletto verrà considerato tutte e 50 
le volte, se posto a 1, verrà considerato 
solo 25 volte, diminuendo quindi il nu¬ 
mero massimo di movimenti eseguibili; 


in generale, se posto a R, il folletto sarà 
considerato 50/(R + 1 ) volte. Nel caso si 
utilizzino tutti e otto i folletti sarà conve¬ 
niente porre Ritardo a 1 e raddoppiare 
invece le velocità di movimento, per non 
penalizzare troppo il BASIC, che altri¬ 
menti risulterebbe eccessivamente ral¬ 
lentato. Nel caso i folletti siano control¬ 
lati direttamente da tastiera aumentare 
il ritardo permette anche una maggiore 
precisione nel controllo dei movimenti. 
Delay - Si tratta in realtà di un contatore 
interno per gestire i ritardi (delay ap¬ 
punto, in inglese); esso viene decremen- 
tato ad ogni ciclo di esecuzione di sprite 
e il folletto corrispondente viene consi¬ 
derato solo quando raggiunge il valore 
0: a questo punto delay viene di nuovo 
caricato con il valore Ritardo+1. La 
sua funzione per l’utente è unicamente 
quella di permettere la sincronizzazione 
(o desincronizzazione, a piacere) tra 
vari folletti al momento dell'attivazione 
(ad esempio, usando figure composte); 
essi verranno considerati la prima volta 
dopo Delay-1 cicli a vuoto. 

Old & New Posizione - La loro funzione 
è la seguente: per realizzare il movimen¬ 
to il folletto viene prima cancellato dalla 
posizione indicata da Old Pos per veni¬ 
re riscritto nella nuova posizione, prece¬ 
dentemente calcolata e inserita in New 
Pos; infine i due valori sono eguagliati, 
per avere al prossimo movimento in Old 
la posizione da cancellare. Come si può 
vedere dalla tabella 1, questi sono para¬ 
metri sia di ingresso che di uscita; consi¬ 
derati dal secondo punto di vista, cioè 
come indicatori della posizione del fol¬ 
letto a cui si riferiscono, il loro contenu¬ 
to è identico. Diversa è la loro funzione 
considerandoli come valori in ingresso: 
oltre a permettere il posizionamento del 
folletto, agendo su di essi è possibile 
realizzare altri effetti; infatti la cancella¬ 
zione viene eseguita solo se la compo¬ 
nente Y di Old ha un valore minore di 
255, e lo stesso accade per la scrittura 
con la componente Y di New. I compor¬ 
tamenti descritti permettono di realizza¬ 
re le operazioni di accensione e spegni¬ 
mento di un folletto agendo sulla com¬ 
ponente Y di New; vediamo come. 
Accensione: è chiaro che all'accensio¬ 
ne di un folletto questo andrà solamen¬ 
te disegnato e non cancellato: pertanto 
si dovrà avere in Old (Y) 255 e in New (Y) 
il valore che si desidera assuma questa 
coordinata; inoltre, poiché Old e New 
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Figura 2 - Valori del movimenti e formato binarlo. 




















vengono eguagliati, nei movimenti suc¬ 
cessivi verranno eseguite entrambe le 
operazioni. A proposito del posiziona¬ 
mento di un folletto bisogna ricordarsi 
che, affinché esso sia completamente 
contenuto nello schermo, le sue coordi¬ 
nate, tenendo conto delle dimensioni, 
dovranno soddisfare le seguenti condi¬ 
zioni; X compreso tra 0 e 248 e Y tra 7 e 
191 (sempre estremi compresi, vedi figu¬ 
ra 3). 

Spegnimento: per spegnere un folletto è 
sufficiente porre in New (Y) il valore 255; 
infatti, in questo caso viene eseguita 
solo la cancellazione e il meccanismo di 
aggiornamento prima descritto, ponen¬ 
do 255 anche in Old (Y), provvede a 
disinserirlo. Per default tutti i folletti so¬ 
no spenti. 

Riassumendo, abbiamo che per accen¬ 
dere il folletto F (precedentemente 
spento) nella posizione X.Y si dovranno 
dare nell'ordine i seguenti comandi: 

POKE Data + F*20+16.X (NEW 
POS(X)) 

POKE Data+F*20+17,Y 
(NEW POS(Y)) 

mentre per spegnerlo: 

POKE Data + F^20 + 17,255. 


Bord&Sfon - Questa e la seguente sono 
due variabili che permettono di cono¬ 
scere lo stato del folletto; in particolare 
questa si riferisce all'urto con il bordo o 
con elementi dello sfondo (e cioè qual¬ 
siasi forma di grafica). Può assumere 
solo quattro valori, a seconda della si¬ 
tuazione che si verifica (vedi tabella 2). 
Va notato che il caso di sovrapposizio¬ 
ne tra i folletti può venire segnalato an¬ 
che come urto con elementi di sfondo, 
in quanto la routine non distingue tra la 
grafica fissa e quella da lei realizzata, 
ma verifica semplicemente se nella ma¬ 
trice di 8x8 pixel vi siano dei pixel accesi 
che non appartengono alla forma del 
folletto. 

Urt-Spr - Questa variabile fornisce il ri¬ 


sultato del test eseguito dalla routine 
riguardo alla sovrapposizione, anche 
parziale, tra folletti. Il suo valore è 0, se 
non vi è sovrapposizione, mentre in ca¬ 
so contrario ogni bit a 1 indica la sov¬ 
rapposizione con il corrispondente fol¬ 
letto (i bit vanno numerati da 0, per il 
meno significativo, a 7). Il test è eseguito 
sulla sovrapposizione geometrica delle 
matrici di 8 x 8 pixel. 

Visti i significati dei dati, per mezzo dei 
quali è possibile comunicare con la rou¬ 
tine, vediamo come il programma ci per¬ 
mette di definirne i valori iniziali. Una 
volta stabilita la modalità della masche¬ 
ra il programma propone un piccolo 
menu, le cui alternative sono le seguen¬ 
ti: modificare alcuni parametri del follet¬ 
to a cui si riferiscono i dati della tabella 
esposta dal programma, visionare i dati 
di un altro folletto o finire e salvare la 
routine su nastro. Per selezionare un'al¬ 
ternativa si dovrà rispondere con la pri¬ 
ma lettera della voce scelta. Nel caso la 
scelta sia di modificare i valori presenta¬ 
ti si dovrà agire, come nel resto del pro¬ 
gramma, dando il solo Enter per ogni 
dato che non sia da modificare, posizio¬ 
nando cosi il cursore sulla variabile da 
cambiare. Scegliendo di finire, il pro¬ 
gramma prima di salvare la routine 
chiede se si desidera fare l'hardcopy del 


video per conservare i valori visualizzati 
sullo schermo, in modo da non doverli 
trascrivere a mano. 

Routine Ausiliaria - Una delle possibili 
funzioni di una routine ausiliaria è quel¬ 
la di permettere il controllo di alcuni 
folletti direttamente da tastiera, allegge¬ 
rendo ulteriormente i compiti del pro¬ 
gramma BASIC che ne facesse uso e 
realizzando un sistema di grafica inte¬ 
grato molto potente; una possibile rou¬ 
tine è quella presentata su questa rivi¬ 
sta alcuni numeri fa (Personal Softwa¬ 
re n. 21, Ottobre 1984: Simulazione di 
joystik da tastiera) con il nome R.S.J. 
Scopo di quella routine era la gestione 
di due gruppi di 5 tasti come due joy¬ 
stick, trattati separatamente e indivi¬ 


duando la pressione contemporanea di 
due tasti di uno stesso gruppo come 
direzione diagonale. È possibile per 
mezzo del suo uso, in congiunzione con 
la routine sprite, gestire due folletti (o 
gruppi di folletti) da tastiera, facendo si 
che la progettazione di un programma 
sia tutta volta all'analisi delle situazioni 
che si presentano e non alla realizza¬ 
zione di dispositivi di ingresso e routine 
di grafica. Poiché anche la R.S.J. viene 
preparata da un programma BASIC che 
permette la rilocazione e una forma di 
pre-programmazione, nel preparare le 
due routine, per unirle, si dovrà tenere 
conto solamente delle condizioni che 
una impone all'altra; ad esempio, i valo¬ 
ri da impostare nella R.S.J. per definire 
le direzioni dovranno essere quelli ri¬ 
chiesti dagli sprite (figura 2) e il valore 
per il tasto di sparo non dovrà produrre 
alcun movimento. L'unica modifica da 
apportare al programma che prepara la 
R.S.J. è la seguente: sostituire il penulti¬ 
mo valore dei Data (linea 8150 nel lista¬ 
to pubblicato) da 251 a 0; la linea risulta 
come segue: 

8150 DATA 193,225,241,0,201 

Per agganciare la R.S.J. alle routine 
sprite basterà fornire a quest'ultima co¬ 
me indirizzo della routine ausiliaria il 
valore Programm e come indirizzi di let¬ 
tura del movimento per i folletti da con¬ 
trollare (Ind Dir in sprite) i valori Key Ind: 
entrambi questi valori sono forniti dal 
programma che prepara la R.S.J. Ricor¬ 
diamo che la R.S.J. dispone di un auto¬ 
matismo che ripristina il normale fun¬ 
zionamento delle interruzioni alla pres¬ 
sione contemporanea dei tasti Caps- 
Shift e Space, disinserendo nel caso an¬ 
che le routine sprite. 

Come si usano gli sprite 

Una volta preparata la routine e salva¬ 
ta su cassetta (per le prime volte convie¬ 
ne tra l’altro non modificare i valori di 
default) per utilizzarla si dovrà proteg¬ 
gere l'area di memoria in cui verrà cari¬ 
cata con il comando “Clear Org-1 ", do¬ 
ve Org è il minore dei due indirizzi di 
inizio mostrati nella sezione rilocazione 
(normalmente quello di "controllo"). Si 
dovrà poi provvedere a caricare il bloc¬ 
co di codici con il comando “Load no¬ 
me Code” (nel caso siano due blocchi 


Valore 

Significato 

0 

Nessun urto con i bordi né sovrapposizione con 


la grafica. 

1 

Sovrapposizione con elementi di grafica preesi- 


stente. 

2 

Urto con un bordo della finestra del folletto 


Tabella 2 - Significato 
del valori 
della variabile 
Bord&Sfon. 
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Vi informiamo 

che il vostro piccolo Spectrum 
è molto più grande. 






































Discovery, è l'unità a dischi -più avanzata 
e più completa presentata fino ad ora per 
potenziare lo Spectrum; sfrutta i più moder¬ 
ni ritrovati della tecnologia nel campo dei 
dischetti. 

Il modello più economico, Discovery 1, com¬ 
prende: • Unità a dischetti standard da 3,5 
pollici. • Connettore passante per periferi¬ 
che. • Interfaccia joystick. • Porta per stam¬ 
pante parallela. • Uscita per monitor mono- 
cromatico. 

Discovery 1 può essere potenziato successi¬ 
vamente aggiungendo un secondo disc drive 
per mezzo del kit di espansione “Disco¬ 
very + in alternativa, è disponibile il 
“Discovery 2“ già dotato di due drive. 



^ Questo è ] 

da solo trasforma 


in un si 




CARATTERISTICHE TECNICHE 

Unità a dischetti: 

Tipo del disco. . . .standard da 3,5in 


Modello.35401 

Numero delle tracce.40 

Numero delle facce.1 

Capacità totale. 250 Kbyte 

Capacità formattata .... 180 Kbyte 

Accesso traccia-traccia.3 ms 

Alimentazione.interna 







































)iscovery: 

il vostro Spectrum 

stema. 


Discovery è stato concepito in modo da 
funzionare con gli stessi comandi della 
“Interface I” per permettervi l’uso, senza 
bisogno di modificare nulla, dei numerosi 
programmi disponibili su cassette o su car¬ 
tucce per microdrive. 

Discovery non occupa “RAM utente” dello 
Spectrum, per cui potete eventualmente uti¬ 
lizzare programmi su cassetta senza scolle¬ 
garlo dal computer. Superfluo diventa anche 
l’alimentatore Sinclair in quanto è la stessa 
unità (dotata di interruttore generale) ad ali¬ 
mentare lo Spectrum. 





c _ 


2 - 


BIT SHOP 
primavera 



Interfacce: 

• Connettore passante per allaccia¬ 
mento delle periferiche, da 56 poli a 
circuito stampato. 

• Porta per stampante parallela, com¬ 
patibile Ccntronios. 

• Interfaccia joystick: connettore a 9 
poli tipo *D* (compatibile Kempston) 

• Uscita monitor: plug audio 
Alimentazione: 

• Tensione di rete: 220 V, 50llz 






















Distribuito e garantito in Italia 
da Bit Shop Primavera. 


ABRUZZI 


• U linciano - DIO IT TEAM, Via Mario Bianco 2, Tel. 
(0872)37266 • l’escara - COMPUTER MARKET, 
Via Trieste 73, Tel. (085)26007 


CALABRIA 


• Catanzaro * V1SICOM, Via XX Settembre 62/A, 
Tel. (0961)24181 • Cosenza • DEFIM, Via Massaua 
25. Tel. (0984)74214 • Renaio Calabria - PROTEO. 
Via S. Marco 8/B. Tel. (0965)21685 


CAMPANIA 


• Benevento - DE.VI COMPUTER, Via E. Goduti 
62/64. Tel. (0824)54005 • Casapulla - ANDROME¬ 
DA. Via Appia 128, Tel. (0823)460469 • Napoli 
COMPUTER FACTORY. Via !.. Giordano 40/42, 
Tel. (OS 1)241242 - COMPUTER FACTORY. Via 
G B. Marino 11/13, Tel. (081)621379 • Quarto - S.G. 
CRISTOFARO. Via Campana 255bis, Tel. 
(081 (8763676 • Salerno - GENERAL COM POTER. 
C.so Garibaldi 56. Tel. (089)237835 


EMILIA-ROMAGNA 


• Bologna - FDP SISTEMI BOLOGNA, V.le Pietra- 
ni e Ila ra 61/F. Tel. (051)263032 • Forlì - HOME & 
PERSONAL COMPUTER, P.zza Melozzo 1. Tel. 
(0543)35209 • Lutto - SELCO ELETTRONICA, Via 
Magnapassi 26, Tel. (0545)22601 • Parma - BIT 
SHOW, Borgo Parente 14/E, Tel. (0521)25014 • 
Reggio Emilia MICRO INFORMATICA, Via S. 
Giuseppe 4/A. Tel. (0522)34716 • Rimini - COM¬ 
PUTER SI IOP. Via Garibaldi 44. Tel. (0541 (27691 • 
Sassuolo - MI CROI N FORM ATI C A. P.za Martiri 
Partigiani 31. Tel. (0536)802955 


I RIULI VENEZIA GIULIA 


• Trieste - COMPUTER SIIOP. Via P. Reti 6, Tel. 
(040)61602 • Udine- P.S. ELETTRONICA, Via Ta- 
vagnacco 89/91, Tel. (0432)482086 


LAZIO 


• Rieti - ESSEEMMECI, Via Cintia 70. Tel. 
(0746)44704 • Roma COMPUTER MARKET. P.za 
S. Dona di Piave 14. Tel. (06)7945493 - EASY-BYTE, 
Via G. Villani 24/26. Tel. (06)7811519 


LIGURIA 


• Genova - COMPUTER CI NTER. Via S. Vincenzo 
I09R. Tel. (010)581474 • Genova Sampierclarena - 
COMPUTER C ENTER. Via G.D. Storace 4R, Tel. 
(010)454107 • Imperia - COMPÌ ITER SHOP. Via A. 
Doria 45. Tel. (0183)275448 • La Spezia - I.L. ELET¬ 
TRONICA. Via Lunigiana 481. Tel. (0187)511739 • 
Rocco - DIGIT CENTER. Via B. Assercto 78. Tel. 
(0185)74252 


LOMBARDIA 


• Bergamo - SANO IT. Via S. Francesco D'Assisi 5. 
Tel. (035)224130 • Brescia - IL COMPUTER. Via 
Solferino5.Tel. (030)42100* Busto Arsizio-BUSTO 
BIT, Via Gavinana 17. Tel. (0331 >625034 • Cesano 
Maderno - ELECTRONIC CENTER. Via Ferrini 6. 
Tel. (0362)520728 • Cinisello Balsamo • GBC 11 A- 
LIANA, V.le Matteotti66.Tel. (02)6181801 • Crema 
EL.COM., Via IV Novembre 56/58. Tel 
(0373)83393 • Gallarate - S.E.D., Via Arnaldo da 
Brescia 2, Tel. (0331)795735 • Lecco - S.G A. IV 
FORMATILA, Via Leonardo da Vinci T Tel 
(0341)361264* Luino - MICRO COMPUTER. V.le 
Amendola 48. Tel. (0332)537536 • Mantova - AN- 
TEK COMPUTER, Via Cavour 69/71. Tel. 
(0376)329333 • Milano - GBC ITALIANA, Via Pe- 
trclla 6. Tel. (02)2041051 - GBC ITALIANA, Via 
Cantoni 7. Tel. (02)437478 - LAS VEGAS. Galleria 
Manzoni 40, Tel. (02)705055 - NUOVA NEWEL. 



Via Mac Mahon 75, Tel. (02)323492 • Monza - EMI, 
Via Azzone Visconti 39. Tel. (039)388275 • Pavia - 
M3 COMPUTERS. V.le C. Battisti 4/A, Tel. 
(0382)31087 • Sesto Calcnde - J.A.C. NUOVE TEC¬ 
NOLOGIE. Via Matteotti 38, Tel. (0331)923134 • 
Varese - SUPERGAMESCOMPUTER, Via Carrob¬ 
bio 13. Tel. (0332)241092 • Vigevano - VISENTIN. 
C.so Vittorio Emanuele 82. Tel. (0381 (83833 • Vo¬ 
ghera - BYTE ELETTRONICA. Via Matteotti 65, 
Tel. (0382)212280 


MARCHE 


• Ancona - CESARI, Via De Gasperi 40, Tel. 
(071 (85620 • Macerata - CERQUETELLA. Via Spa¬ 
lato 126. Tel. (0733)35344 • Senigallia - C.I.D.I., Via 
Maierini 10. Tel. (071)659131 


MOLISE 


• Campobasso - SISTEMA. Via Monsignor Bologna 
10, Tel. (0874)94795 • Termoli - ROSATI COMPU¬ 
TER. Via Martiri della Resistenza 8, Tel. 
(0875)82291 


PIEMONTE 


• Alba - PERSONAL* HOME COMPUTER, Via l’a- 
ruzza 2, Tel. (0173)35441 • Alessandria - BIT SY¬ 
STEM, Via Savonarola 13.Tel.(0131 >445692* Biel¬ 
la - NEGRINI, Via Tripoli 32/A, Tel. (015)402861 • 
Cuneo-THEMA. Via Statuto 10,Tel. (0171 )60983 • 
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LA PRIMA RETE DI SPECIALISTI 
IN PERSONAL COMPUTER. 


BIT SHOP PRIMAVERA S.p.A. 
VIA C. FARINI 82, 20159 MILANO 
TEL. (02)6880429/6882171 


Favria Canavese - MISTER PERSONAL, Via Capo- 
ral Cattaneo 52, Tel. (0124)428344 • Torino - A. B. 
COMPUTER. C.so Grosseto209, Tel. (011)2163665 
- COMINFOR SISTEMI, C.so B. Telesio 4/B, Tel. 
(011)793007 - COMPUTER SIIOP. Via Nizza 91. 
Tel. (011 (6509576- DUEGI, C.so Racconigi 26,Tel. 
(011)3358756 - ZUCCA COMPUTER, Via Tripoli 
179. Tel. (011)352262 • Verbania-Intra - ELLIOT 
COMPUTER SHOP. P.zza Don Minzoni 32, Tel. 
(0323)43517 


PUGLIA 


• Bari - NUOVA HALLI ELECTRONICS, Via 
Estranimele Capruzzi 192, Tel. (080)228822 -TEC- 
NOSISTEMI, P.zza Garibaldi 55, Tel. (080)210084 

• Foggia - SINFOR, V.le Europa 44/46, Tel. 
(0881)32579 • Lecce - CAMEL ELETTRONICA E 
COMPUTER, Vai Marinosci 1/3,Tel. (0832)592861 

• Taranto-SUD COMPUTER, Via Polibio 7/A, Tel. 
(099)338041 


SARDEGNA 


• Cagliari - BIT SHOP. Via Zagabria 47. Tel. 
(070)490954 


SICILIA 


• Caltanissetta - ELEONORI & AMICO, C.so Um¬ 
berto I 254/256, Tel. (0934)25610* Catania - ARI A 
NUOVA. P.zza Lanza 16, Tel. (095>438573* Messi¬ 
na - TEMPO REALE, Via del Vespro 71, Tel 
(090)773983 • Palermo - INFORMATICA COM¬ 
MERCIALE, Via Notarbartolo 23/B, Tel. 
(091)291500 • Siracusa - LOGOL SYSTEM, V.le 
Scala Greca 339/9, Tel. (0931)53244 


TOSCANA 


• Firenze - ANDREI CARLO & C., Via G. Milanesi 
28/30, Tel. (055)472810 - ELETTRONICA CEN- 
TOSTELLE, Via Centostellc 5/A, Tel. (055)610251 

• Livorno - C.P.A. ELETTRONICA, Via Paoli 32, 
Tel. (0586)27357 • Lucca - LOGOS INFORMATI¬ 
CA, V.le S. Concordio 160, Tel. (0583)55519 • Pisa- 
IT-LAB, Via XXIV Maggio 101. Tel. (050)552590 - 
TECNINOVAS COMPUTER, Via Emilia 36, Tel. 
(050)502516* Pistola - C.D.E., V.le Adua 350, Tel. 
(0573)400712 • Prato - C. BARBAGLI ELETTRO¬ 
NICA, Via E. Boni 76/80, Tel. (0574)595001 • Via¬ 
reggio - C.D.E., Via. A. Volta 79. Tel. (0584)942244 


TRENTINO ALTO ADIGE 


• Bolzano - BONTADI. P.zza Verdi 15/B, Tel. 
(0471)971619* Rovereto -S.E.D.A., Via Fontana 8/ 
B.Tel. (0464)34506* Trento - S.E.D. A., Via Sigitele 
7/1, Tel. (0461)984564 


UMBRIA 


• Perugia - STUDIO SYSTEM, Via D'Andreol(o49/ 
55, Tel. (075)754964 


VALLE D'AOSTA 


• Aosta - INFORMATIQUE, Av. Du Conseil des 
Commis 16. Tel. (0165)362242 


VENETO 


• Bussano del Grappa - *1 OD ARO, Via Jacopo da Pon¬ 
te 51. Tel. (0424)22810 • Mirano - SAVING ELET¬ 
TRONICA. Via Gramsci 40, Tel. (041J432876 • Pa¬ 
dova COMPUTER POINT. Via Roma 63, Tel. 
(049)22564 - S.I.C. ITALIA, Via Nicolò Tommaseo 
13. Tel. (049)663133* San Dona di Piave - COM PU¬ 
TÌ ME. P.zza Rizzo 61. Tel. (0421 (50474 • Verona - 
CHIP COMPUTER. Stradone S. Fermo 7. Tel. 
(045)21255 • Vicenza - A.T.R.. Via del progresso 7/9. 
Tel. (0444)564611 
















































































Sprite 


ZX SPECTRUM 


si userà questo comando due volte); 
non è necessario specificare dopo la 
parola Code l'indirizzo di inizio e l’esten¬ 
sione, in quanto il precedente salvatag¬ 
gio è stato eseguito dal vero indirizzo di 
inizio. 

Caricato il tutto in memoria si potrà 
attivare la routine con il comando, diret¬ 
to o da programma, Randomize Usr 
Start; a questo punto la routine ha ini¬ 
ziato a funzionare e si potrà accendere 
qualche folletto con la procedura prima 
descritta; i folletti potranno venire messi 
in movimento, inserendo nella locazio¬ 
ne di indirizzo Ind Dir un valore tra quelli 
della figura 2 con il comando Poke Ind 
Dir, valore. Per alcune operazioni, come 
ad esempio il riposizionamento di un 
folletto si dovrà prima spegnerlo con la 
procedura di spegnimento per poi riac¬ 
cenderlo nella nuova posizione. Ricor¬ 
diamo che per riconoscere gli eventuali 
urti e sovrapposizioni si possono con¬ 
sultare le variabili Bord&Sfon e Urt-Spr, 
rispettivamente per i bordi e lo sfondo la 
prima e l'urto tra folletti la seconda; la 
lettura di queste variabili per il folletto F 
andrà fatta per mezzo della funzione 
Peek, rispettivamente con "Peek (Da¬ 
ta* 20 ★ F+ 18)" la prima e "Peek (Da¬ 
ta+20 ★ F + 19)" la seconda. Non c’è 
generalmente bisogno di disinserire la 
routine, in quanto una volta spenti tutti i 
folletti il suo consumo di tempo è prati¬ 
camente irrilevante; l'unica occasione 
in cui si deve disattivarla è per compiere 
operazioni con i comandi Load, Save, 
ecc., in quanto si possono avere delle 
interferenze (ricordo che la routine vie¬ 
ne disinserita con Randomize Usr Stop). 
Il breve programma dimostrativo del li¬ 
stato 2 permette di vedere gli otto folletti 
in azione guidati dalla funzione casuale 
Rnd. La routine deve venire preparata 
con i valori di default e deve essere già 
stata caricata prima di dare il Run al 
programmino. Da notare l'uso del co¬ 
mando Pause tra il ciclo finale di spe¬ 
gnimento e il disinserimento della routi¬ 
ne; tale accorgimento è necessario, ad 
esempio, quando si devono dare due 
comandi allo stesso folletto, per assicu¬ 
rarsi che il primo sia stato eseguito pri¬ 
ma di ricevere il secondo: nel caso parti¬ 
colare viene usato per essere sicuri che 
tutti i folletti siano stati spenti prima di 
disinserire la routine. ■ 


SUPER OFFERTA 
DI SETTEMBRE 
DEL COMPUTER STUDIO 

Via Santhià, 47 - 10154 Torino - tei. (011) 287366 


Commodore 64 

Interfaccia Centronics grafica 95.000 

idem professionale 160.000 

Fucile ottico con serie giochi 70.000 

Copricomputer in plexiglass 11■ 000 

Joystick normale 2 pulsanti 14.000 

Joystick fuoco rapido Spectravideo II o simile 18.000 

Joystick tipo bar in metallo con microswitch 60.000 

Joystick competition PRO 5000 con microswitch 39.000 

Cassetta 10 giochi-novità 16.000 

Gruppo 20 cassette C15 14.500 

Interfaccia copia programmi da registratore a registratore 30.000 
Clipper per raddoppiare la capacità dei vostri dischetti 10.000 
Karaté e Box su cassetta 19.000 

Mouse per CBM 64 190. 000 

Spectrum 16/48 K 

Tastiera professionale 16/48 K 30.000 

Kit espansione da 16 a 48K 39.000 

Interfaccia Joystick doppia 26.000 

Interfaccia programmabile a scatti 49.000 

Interfaccia RAM TURBO con ingresso 

2 Joystick più cartridge 70.000 

Gruppo 10 cassette gioco originali 19.000 

Copricomputer in plexiglass Spectrum 10.000 

Idem per Spectrum Plus 12.000 

Idem per OL 15.000 

Commodore CI 6 

Espansione di memoria 16K RAM 119.000 

Gruppo 10 cassette gioco 40.000 

Adattatore joystick 7.500 

Adattatore registratore 7-500 

Copricomputer in plexiglass 11000 

Commodore VIC 20 

Cartridge basic extender 30.000 

Espansione 3K grafica Commodore 30.000 

Espansione 8K RAM 30.000 

Espansione 3/8/16K RAM commut. 75.000 

Espansione 32K commutabile 99.000 

Interfaccia stampante Centronics 70.000 

Idem grafica ' 95.000 

Penna ottica con software 52.000 

Copricomputer in plexiglass 11 • 000 

Gruppo 10 cassette gioco originali 15.000 

Altre offerte 

10 Diskette di qualità SS/DD con box 

in plexiglass omaggio 35.500 

Idem doppia faccia doppia densità DS/DD 53.000 

Gruppo 5 cassette CI5 in vaschetta porta-cassette omaggio 5.000 
Idem 4 confezioni 20 cassette C15 con relative vaschette 14.500 
Contenitore per 10 dischetti in plexiglass 3.500 

Vaschetta porta dischetti floppy - coperchio in plexiglass 
con serratura e cerniera - capacità 50 pezzi 24.000 

Idem - capacità 90 pezzi 29.000 

Kit di taratura per azimut dei registratori per C 64 
con manuale, software e cacciavite a croce 24.000 


Vendita diretta o per corrispondenza. Ordini con pagamento anticipato: 
aggiungere L. 3.000 per spese postali. Ordini con pagaménto contrassegno: 
inviare acconto L. 10.000. Le spese postali verranno addebitate al costo. 
Ordine minimo L. 50.000. 
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ELENCO DEI TITOLI DISPONIBILI 


I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 

•SINCLAIR SPECTRUM cod. 017H 
•VIC 20 cod. 005H 
•COMMODORE 64 cod. 002H 
•PC IBM cod. 018H 
■APPLE Ile cod. 003H 
■SHARP MZ80A cod. 014H 
■LA PROGRAMMAZIONE cod. 004H 
•WORD STAR cod. 008H 
■UNIX cod. 009H 
■LOGO cod. 020H 
•MS-DOS cod. 019H 
•PROGRAMMI DI STATISTICA cod. 
01SH 

•CP/M cod. 011H 
•PC-DOS cod. 012H 


•BASIC cod. 007H 
■ASSEMBLER Z80 cod. 016H 
■ASSEMBLER 6502 cod. 013H 


■COBOL cod. 001H 
•FORTRAN 77 cod. 010H 
•PASCAL cod. 006H 





ritagliare (o fotocopiare) e spedire in busta chiusa a; 

GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n c copie 
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che unisce le caratteristiche di 
un manuale di riferimento a 
quelle di un buon testo didatti¬ 
co di programmazione. 

cod. 417D Pag. 216 
Lire 20.500 


Brian Lloyd 

I TUOI AMICI COMMODORE 16 
E PLUS 4 

Anche i computer hanno un 
cuore: impara a programmare 
con i tuoi amici C16 e Plus 4. 

cod. 423B Pag. 168 
Lire 16.000 


Rodnay Zaks 

IL TUO PRIMO COMPUTER 


David Lawrence 

TECNICHE 

DI PROGRAMMAZIONE 
SUL COMMODORE 64 

L'arte della buona program- 
mazine alla portata di chiun¬ 
que possegga un Commodore 


□ Pagherò contrassegno al postino II prezzo indicato più L 3.000 per contributo fisso 
spese di spedizione. 


Condizioni di pagamento con esenzione del contributo epeee di spedizione: 

□ Allego assegno della Banca n Allego fotocopia del versamento 

su c/c n. 11666203 a voi Intestato 


□ Allego fotocopta di versamento 

n* su vaglia postale a voi intestato 


Una semplice introduzione al 
mondo dei personal orientata 
ad utenti alla loro prima espe¬ 
rienza con il computer. 
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cod. 575D Pag. 176 
Lira 16.500 


Daria Gianni, Cario Tognoni 

MSX: IL BASIC 
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f ■■ Ritorna in edicola ■ ■ 

; VIDEO BASIC 

■ Il corso più entusiasmante su cassetta 

■ del Gruppo Editoriale Jackson per Commodore 64, 

VIC 20 e Spectrum 

| 200.000 copie vendute 


del 1° fascicolo della prima edizione 


ion» 


\et 


o\o 


09°' 


«oc 


sP e 


uno 


Il corso è composto da: 

20 fascicoli 4 - 

(Quattordlclnall) 

20 cassette + 

5 splendidi raccoglitori 


Oggi è davvero facile imparare il 
Basic. Con Video Basic il corso su 
cassetta che ti permette di 
rogrammare subito il tuo computer, 
facile: tu chiedi, lui risponde, 
tu impari. Passo dopo passo. 

Sul tuo schermo appaiono le 
domande, le risposte, gli esercizi e 


tu, senza fatica, presto e bene, 
impari a conoscere 
e programmare il tuo computer, sia 
esso un VIC 20, un Commodore 64 o 
un Sinclair. 

Video Basic è in edicola. 

Provalo subito. 

Ogni lezione è uno spettacolo. 


Oggi il Basic si impara così. 

Video Basic, il corso su cassetta per 
parlare subito col tuo computer. 


Video Basic 

per imparare non solo il Basic. 



Un’altra grande idea firmata 

GRUPPO EDITORIALE JACKSON 

Milano*San Francisco-Londra-Modrid 
















| _ COMMODORE 6 4 


Grand Prix 

Come nasce un programma 

di Umberto Giovanni Barzaghi Parte prima 


e hi tra i lettori può vantare una 
fedeltà alle riviste del Gruppo 
Jackson che risalga a due o 
tre anni fa, può darsi ricordi 
un programma dallo stesso titolo, ap¬ 
parso su Bit, e riservato ai possessori di 
personal della linea Commodore (3032 
o 4032). 

Le limitate capacità grafiche ed il video 
monocromatico dei calcolatori suddetti 
sono ormai un ricordo, per chi ora pos¬ 
siede un C 64; pertanto la realizzazione 
di una nuova versione, specificamente 
progettata per sfruttare le possibilità of¬ 
ferte dal fortunato home computer di 
casa Commodore, non è sembrata i- 
nopportuna, tanto più che all'uso del 
colore e di un minimo di effetti sonori si 
accompagnano, in questa nuova ver¬ 
sione, numerose opzioni che aumenta¬ 
no notevolmente il realismo della simu¬ 
lazione e l'efficacia della rappresenta¬ 


zione. Un primo, spero apprezzabile, mi¬ 
glioramento, è rappresentato dalla pos¬ 
sibilità di registrare su nastro o su disco 
i dati concernenti i piloti partecipanti ad 
un singolo gran premio (che, nella ver¬ 
sione Commodore, erano invece ospi¬ 
tati da frasi Data incorporate al pro¬ 
gramma) e di disporre di un apposito 
programma (che abbiamo chiamato 
Tool-Kit, cioè, pressappoco, "Cassetta 
degli attrezzi”) per modificarne i valori 


con rapidità e precisione. 

Ciò ha consentito di sopprimere le 
suddette frasi Data, risparmiando spa¬ 
zio in memoria per i miglioramenti ap¬ 
portati al vero cuore della simulazione 
(lo svolgimento del gran premio). L'uni¬ 
co effetto collaterale, non propriamente 
piacevole, è dato dalla necessità di cari¬ 
care da nastro o da disco i dati ogni 
volta che si desideri dare il via ad una 
nuova simulazione. L'uso dei file su na- 


Llatato 1 - Il programma Data G.P./O. 


0 POKE53280,15:POKE53281,15:PRINT"{CLR}": 

R$="(HOME){ 10 GIU')" 

5 FORI x ITO!0 :A$(I)=LEFT$(R$,I):NEXT 
10 S = 32768:E=34816:F$ = " 0/G. P. " (_• -\ 

20 READA:IFA=-3THEN40 

25 PRINTA$(5)TAB(3)"{ 5 SPAZI}{ 5 SIN) 
{RED}"A 

30 FORI=0TO7:READB:POKES+A*8+I,B:NEXTrGOT 
020 

40 PRINTA$(10)TAB(3)"(BLKjDESIDERI OTTENE 
RE UN FILE SU NASTRO{ 5 SPAZI}0 SU DIS 
CO (N/D)?" 

50 GETA$: IFA$O"N"ANDA$O"D"THEN50 
55 PRINTTAB(21)"{SU}{RED}"A$ 

60 DV=l-7*(A$="D"):IFDV=8THENF$="0:"+F$:O 
PENI 5,8,15,"S"+F$:CLOSEl5 
70 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$) 

:POKE782,ZK/256 

80 POKE781,ZK-PEEK(782)*256:POKE780,LEN(T 
$):SYS65469 

90 POKE780,1 :POKE781,DV:POKE782,1 :SYS6546 
6 

100 K=S:POKE254,K/256:POKE253,K-PEEK(254) 
* 256 :POKE780,253 

110 K=E+1:POKE782,K/256:POKE781,K-PEEK(78 
2)*256:SYS65496 

120 IF(PEEK(783)ANDl)OR(191ANDST)THENl40 
130 PRINTTAB(3)"FINITO": END 
140 PRINTTAB(3)"{GIU*}ERRORE! RIPROVA":IF 
DV=1THENl60 

150 OPEN!5,8,15:INPUT#15,El$,E2$:PRINTEl$ 
,E2$:CLOSEl5 

160 FORI=1T03000:NEXT:PRINT"{CLR}":GOTO40 


170 DATA000,000,056,108,108,056,000,000,0 
00 

180 DATA001,000,000,060,102,126,102,102,0 
00 

190 DATA002,000,000,1 24,102,1 24,102,1 24,0 
00 

200 DATA003,000,000,060,102,096,102,060,0 
00 

210 DATA004,000,000,124,102,102,102,124,0 
00 

220 DATA005,000,000,126,096,120,096,126,0 
00 

230 DATA006,000,000,126,096,120,096,096,0 
00 

240 DATA007,000,000,062,096,110,102,062,0 
00 

250 DATA008,000,000,102,102,126,102,102,0 
00 

260 DATA009,000,000,024,024,024,024,024,0 
00 

270 DATA010,000,000,006,006,006,102,060,0 
00 

280 DATA011,000,000,102,108,120,108,102,0 
00 

290 DATA012,000,000,096,096,096,096,126,0 
00 

300 DATA013,000,000,198,238,254,214,198,0 
00 

310 DATA014,000,000,102,118,126,110,102,0 
00 

320 DATA015,000,000,060,102,102,102,060,0 
00 

330 DATA016,000,000,124,102,124,096,096,0 
00 

340 DATA017,000,000,060,102,102,060,006,0 
00 












Seguito listato Data G.P./O. 


350 DATA018,000,000,124,102,124,108,102,0 
00 

360 DATA019,000,000,062,096,060,006,124,0 
00 

370 DATA020,000,000,126,024,024,024,024,0 
00 

380 DATA021,000,000,102,102,102,102,060,0 
00 

390 DATA022,000,000,102,102,102,060,024,0 
00 

400 DATA023,000,000,099,107,127,062,054,0 
00 

41 0 DATA024,000,000,102,060,024,060,102,0 
00 

420 DATA025,000,000,102,102,060,024,024,0 
00 

430 DATA026,000,000,126,012,024,048,126,0 
00 

440 DATA027,000,000,030,062,126,062,030,0 
00 

450 DATA028,000,056,108,1 08,0 59,000,000,0 
00 

460 DATA029,000,000,120,124,126,124,120,0 
00 

470 DATA030,000,024,060,126,024,024,024,0 
24 

480 DATA031,000,016,048,127,127,048,016,0 
00 

490 DATA032,000,000,000,000,000,000,000,0 
00 

500 DATA033,024,024,024,024,000,000,024,0 
00 

510 DATA034,102,102,102,000,000,000,000,0 
00 

520 DATA035,102,102,255,102,255,102,102,0 
00 

530 DATA036,024,062,096,060,006,124,024,0 
00 

540 DATA037,098,102,012,024,048,102,070,0 
00 

550 DATA038,060,102,060,056,103,102,063,0 
00 

560 DATA039,024,024,024,000,000,000,000,0 
00 

570 DATA040,012,024,048,048,048,024,012,0 
00 

580 DATA041,048,024,012,012,012,024,048,0 
00 

590 DATA042,000,102,060,255,060,102,000,0 
00 

600 DATA043,000,024,024,126,024,024,000,0 
00 

610 DATA044,000,000,000,000,000,024,024,0 
48 

620 DATA045,000,000,000,1 26,000,000,000,0 
00 

630 DATA046,000,000,000,000,000,024,024,0 
00 


640 DATA0-47,000,003,006,012,024,048,096,0 
00 

650 DATA048,000,060,102,102,102,102,060,0 
00 

660 DATA049,000,024,056,024,024, 024, 060,0 
00 

670 DATA050,000,060,1 02,012,024,048,126,0 
00 

680 DATA051,000,1 26,076,028,006,102,060,0 
00 

690 DATA052,000,014,030,054, 102,127,006,0 
00 

700 DATA053,000,1 26,096,124,006,102,060,0 
00 

710 DATA054,000,060,096,1 24,102,102,060,0 
00 

720 DATA055,000,126,102,012,024,024,024,0 
00 

730 DATA056,000,060,102,060, 102,102,060,0 

9 ° 

740 DATA057,000,060,102,102,062,006,060,0 
00 

750 DATA058,000,000, 024, 000, 000,024,000,0 
00 

760 DATA059,000,000,024,000,000,0 24, 0 24,0 
48 

770 DATA060,012,024,048,096,0 48,024,01 2,0 
00 

780 DATA061,000,000,126,000,126,000,000,0 
00 

790 DATA062,096,048,024,012,024,048,096,0 
00 

800 DATA063,060,102,006,012,024,000,024,0 
00 

810 DATA064,000,000,000 ,255,255,000,000,0 
00 

820 DATA065,000,060,102, 102,126,102,102,0 
00 

830 DATA066,000, 124,102,124,102,102,124,0 
00 

840 DATA067,000,060, 102,096,096,102,060,0 
00 

850 DATA068,000,1 20,1 08,102, 102,108,1 20,0 
00 

860 DATA069,000,126,096,1 20,096,096,126,0 
00 

870 DATA070,000,126,096,120,096, 096,096,0 
Ò0 

880 DATA071,000,060,102,096,110,102,060,0 
00 

890 DATA072,000,102,102,126, 102,102,102,0 
00 

900 DATA073,000,02 4, 024, 024,024,024,024,0 
00 

910 DATA074,000,006,006,006,006, 102,060,0 
00 

920 DATA075,000,108,120,1 12,120,108,102,0 
00 

930 DATA076,000,0 96,096,096,096,096,1 26,0 
00 
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Grand Prix 


COMMODORE 64 


stro, inoltre, può risultare piuttosto 
noioso. 

Un ulteriore inconveniente, ma - almeno 
in questo caso - il “gioco vale la cande¬ 
la", è provocato dall'uso di due interi set 
di caratteri personalizzati, la definizione 
dei quali occupa 4 Kbyte dell'ultimo 
banco di memoria ed i cui dati vengono 
caricati da programma (sotto forma di 
file). La necessità di spostare il blocco di 
memoria “visto" dal chip grafico VIC-II 
in 49152-65535 (in modo da poter ospi¬ 
tare i set di caratteri personalizzati e 
creare uno spazio in memoria - per una 
routine in linguaggio macchina - libero 


da interferenze da parte del programma 
BASIC), ha reso necessario il ricorso ad 
una tecnica ad “overlay'', in cui un pro¬ 
gramma “chiamante" si preoccupa di 
caricare i set di dati suddetti, inserire in 
locazioni opportune della memoria il 
codice Assembly che compone la routi¬ 
ne in linguaggio macchina citata e, infi¬ 
ne, di spostare i puntatori al banco di 
memoria, al set di caratteri, alla memo¬ 
ria di schermo e di caricare il program¬ 
ma BASIC vero e proprio, a partire da 
una posizione che consenta di ottimiz¬ 
zare l’occupazione della memoria di¬ 
sponibile. 


Tutto ciò comporta delle operazioni un 
po’ complicate in realtà, ma che, in que¬ 
sto articolo, verranno dettagliatamente 
illustrate. In pratica, i programmi realiz¬ 
zati sono sei, due dei quali servono sem¬ 
plicemente a implementare e registrare 
sotto forma di file sequenziali su nastro 
o su disco i dati di ridefinizione dei set di 
caratteri. Gli altri quattro programmi so¬ 
no rappresentati da due "loader” e due 
programmi veri e propri. Ciascun loader 
carica entrambi i file sequenziali di ride¬ 
finizione dei caratteri e, quindi, carica e 
manda in esecuzione il proprio pro¬ 
gramma specifico. 


Seguito listato Data G.P./O. 


940 DATA077,000,099,1 19,127,1 07,099,099,0 
00 

950 DATA078,000,102,1 18,1 26,1 26,1 10,102,0 
00 

960 DATA079,000,060,102,102,102,102,060,0 
00 

970 DATA080,000,124,102,124,096,096,096,0 
00 

980 DATA081,000,060,102,102,102,060,014,0 
00 

990 DATA082,000,124,1 0 2,124,1 20, 108,102,0 
00 

1000 DATA083,000,060,096,060,006,102,060, 
000 

1010 DATA084,000,126,024,024,024,024,024, 
000 

1020 DATA085,000,102,102,102,102,102,060, 
000 

10 30 DATA086,000,102,102,102,102,060,024, 
000 

104 0 DATA087,000,0 99,099,107,127,1 19,099, 
000 

1050 DATA088,000,102,060,024,060,102,102, 
000 

1060 DATA089,000,102,102,060,024,024,024, 
000 

1070 DATA090,000,1 26,01 2,024,048,096,1 26, 
000 

1080 DATA091,024,024,024,255,255,024,024, 
024 

1090 DATA092,!92,192,048,048,192,192,048, 
048 

1100 DATA093,024,024,024,024,024,024,024, 
024 

1110 DATA094,240,240,015,015,240,240,015, 
015 

1120 DATA095,051,153,204,102,051,153,204, 
102 

1130 DATA096,000,000,000,000,000,000,000, 
000 

1140 DATA097,240,240,240,240,240,240,240, 


240 

1150 DATA098,000,000,000,000,255,255,255, 
255 

1160 DATA099,255,000,000,000,000,000,000, 
000 

1170 DATAI 00,000,000,000,000,000,000,000, 
255 

1180 DATAI 01,192,1 92,192,192,192,192,192, 
192 

1190 DATAI 02,240,240,01 5,015,240,240,01 5, 
01 5 

1200 DATAI 03,003,003,003,003,003,003,003, 
003 

1210 DATAI 04,000,000,000,000,204,204,051 , 
051 

1 2 20 DATAI 05,204,1 53,051,102,204,1 53,051 , 
102 

1 230 DATAI 06,003,003,003,003,003,003,003, 
003 

1 240 DATAI 07,0 24,024,024,0 31 ,031 ,024,024, 
024 

1 250 DATAI 0 8,000,000,000,000,015,01 5,015, 
01 5 

1 260 DATAI 09,024,024,024,031,031 ,000,000, 
000 

1 270 DATAI 1 0,000,000,000,248,248,0 24,024, 
024 

1 280 DATA1 1 1,000,000,000,000,000,000,2 55, 
255 

1 290 DATAI 12,000,000,000,031 ,031 ,024,024, 
024 

1 300 DATAI 13,024,024,024,255,2 55,000,000, 
000 

1310 DATATI 4,000,000,000,255,255,024,024, 
024 

1 320 DATAI 1 5,024,024,024,24 8,248,024,024, 
024 

1 330 DATAI 16,192,1 92,192,192,1 92,1 92,192, 
192 

1 340 DATAI 1 7,224,2 24,224,224,224,2 24,224, 
224 

1 350 DATAI 18,007,007,007,007,00 7,00 7,007, 
007 
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Tool-Kit e Grand Prix, quindi, sono indi- 
pendenti uno dall'altro ed interagisco¬ 
no solo tramite i file contenenti i dati 
riguardanti i piloti partecipanti ad una 
gara, realizzati dal primo ed utilizzati dal 
secondo per svolgere la simulazione ve¬ 
ra e propria. 

Un meccanismo cosi complicato scor¬ 
re, comunque, senza il ben che minimo 
intoppo per quanto riguarda la registra¬ 
zione su disco delle varie parti che com¬ 
pongono i due programmi. Una imple¬ 
mentazione su nastro risulta, invece, un 
po’ più laboriosa e richiede, senz'altro, 
una maggior attenzione. 


Come copiare i programmi 
e registrare 

Il programma, che consente la crea¬ 
zione e la correzione dei file dati riguar¬ 
danti i vari gran premi ed utilizzati dal 
secondo, è composto, come visto, da 
quattro parti. 

Per realizzarlo sarà necessario innanzi 
tutto, copiare, verificare attentamente e 
registrare i programmi "Data G.P./O” e 
“DataG.P./1 " (rispettivamente listati 1 e 
2). Questi programmi inseriscono i dati 
concernenti i set di caratteri personaliz¬ 
zati direttamente nelle iocazioni di me¬ 


moria destinate ad ospitarli, quindi dan¬ 
no la possibilità di registrare i dati sud¬ 
detti sotto forma di file sequenziali leg¬ 
gibili da programma, utilizzando a tale 
scopo la routine “Kernal" del C 64. 

I lettori che dispongono di unità dischi 
possono, una volta che siano sicuri del¬ 
la correttezza del programma copiato, 
eseguire direttamente ciascuno dei pro¬ 
grammi suddetti; registrando i file se¬ 
quenziali creati dai programmi su di un 
disco debitamente inizializzato che 
dovrà contenere anche le altre quattro 
parti che compongono Tool-Kit e 
Grand Prix (i due file che compongono 


Seguito listato Data G.P./O. 

1360 DATAI 19,2 55,255,000,000,000,000,000 
000 

1 370 DATAI 20,2 55,2 55,255,000,000,000,000 
000 

1 380 DATAI 21,000,000,000,000,000,255,255 
255 

1 390 DATAI 22,001 ,003,006,1 08,1 20,1 1 2,096 
000 

1400 DATAI 23,000,000,000,000,240,240,240 
240 

1410 DATAI 24,01 5,015,015,01 5,000,000,000, 
000 

1 420 DATAI 25,024,024,024,248,248,000,000 
000 

1 4 30 DATAI 26,240,240,240,240,000,000,000, 
000 

1 440 DATAI 27,240,240,240,240,01 5,015,01 5, 
01 5 

1450 DATAI 28,2 55,1 99,1 4 7,1 4 7,1 99,2 55,2 55, 
255 

1 4 60 DATAI 2 9,2 55,2 55,195,1 53,129,1 53,1 53, 
255 

1 470 DATAI 30,255,255,1 31 , 1 53,1 31 ,1 53,1 31, 
255 

1 480 DATAI 31 ,255,255,195,153,1 59,1 53,1 95, 
255 

1 490 DATAI 32,255,255,131,1 53,1 53,1 53,131, 
255 

1 500 DATAI 33,255,255,1 29,1 59,135,1 59,1 29, 
255 

1510 DATAI 34,2 55,255,1 29,1 59,1 35,1 59,1 59, 
255 

1 520 DATAI 35,255,255,193,1 59,1 45,153,193, 
255 

1 530 DATAI 36,2 55,2 55,1 53,1 53,1 29,1 53,1 53, 
255 

1 540 DATAI 37,2 55,2 55,2 31 ,231 ,231 ,231 ,231, 
255 

1 550 DATAI 38,255,255,249,249,249,1 53,1 95, 
255 

1560 DATAI 39,255,255,1 53,1 4 7,1 35,1 47,1 53, 
255 


1570 DATAI 40,255,255,159,159,1 59,1 59,1 29 
255 

1580 DATAI 41 ,255,255,057,01 7,001,041 ,057 
255 

1 590 DATAI 42,2 55,2 55,1 53,1 37,1 29,1 45,1 53 
255 

1600 DATAI 43,255,2 55,1 9 5,1 53,1 53,1 53,1 95 
255 

1610 DATAI 44,2 55,255,1 31,1 53,1 31 , 1 59,1 59 
255 

1 6 20 DATAI 45,2 55,2 55,195,1 53,1 53,19 5,249 
255 

16 30 DATAI 46,255,255,1 31 , 1 53,131 ,1 47,1 53 
255 

1 640 DATAI 47,255,255,193,1 59,1 95,249,1 31 
255 

1650 DATAI 48,2 55,2 55,12 9,231 ,231 ,231 ,231 
255 

16 60 DATAI 49,2 55,255,153,1 53,153,1 53,1 95 
255 

1670 DATAI 50,255,255,1 53,1 53,1 53,195,231 
255 

1680 DATAI 51,255,255,156,148,128,193,201 
255 

1690 DATAI 52,255,255,153,195,231 ,1 95,1 53 
255 

1700 DATAI 53,2 55,2 55,1 53,1 53,1 95,231 ,231 
255 

1710 DATAI 54,2 55,255,1 2 9,2 43,2 31 ,207,1 29 
255 

1 720 DATAI 55,195,207,207,207,207,207,1 95 
255 

1730 DATAI 56,2 55,1 97,147,1 47,196,255,255 
255 

1 740 DATAI 57,195,243,24 3,243,24 3,243,1 95 
255 

1750 DATAI 58,255,231 , 1 95,1 29,2 31 ,231,231 
231 

1760 DATAI 59,060,059,1 27,255,255,1 27,059 
060 

1 770 DATAI 60,255,255,255,255,255,255,255 
255 

1780 DATAI 61 ,231 ,231 ,231 ,231 ,255,255,231 
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Seguilo llalalo Data G.P./O. 

255 

1 79 0 DATAI 62,1 53,1 53,1 53,255,255,255,255, 
255 

1800 DATAI 63,1 53,1 53,000,1 53,000,1 53,1 53, 
255 

1810 DATAI 64,231 , 1 93,1 59,195,249,1 31,231 , 
255 

1 820 DATAI 65,1 57,1 53,243,231 ,207,1 53,1 85, 
255 

1 830 DATAI 66,195,1 53,1 95,199,1 52,1 53,192, 
255 

1840 DATAI 6 7,231 ,231 ,231,255,255,255,255, 
255 

1850 DATAI 68,243,231 ,207,207,207,2 31 ,24 3, 
255 

1 860 DATAI 69,207,231 ,243,243,243,231,207, 
255 

1870 DATAI 70,2 55,1 53,195,000,19 5,1 53,255, 
255 

1 880 DATAI 71 ,255,231 ,231,129,231 ,231,255, 
255 

1890 DATAI 72,255,2 55,2 55,2 55,2 55,231 ,231 , 
207 

1900 DATAI 73,255,255,255,1 29,2 55,255,2 55, 
255 

1910 DATAI 74,2 55,255,255,255,2 55,231,231 , 
255 

1 920 DATAI 75,255,252,249,243,231,207,1 59, 
255 

1930 DATAI 76,255,195,153,1 53,1 53,1 53,1 95, 
255 

1940 DATAI 7 7,2 55,231 , 1 99,231,231,231,1 95, 
255 

1950 DATAI 78,255,1 95,1 53,243,231 ,207,1 29, 
255 

1960 DATAI 79,2 55,12 9,179,227,249,1 53,1 95, 
255 

1970 DATAI 80,255,241 ,225,201,1 53,1 28,249, 
255 

1980 DATAI 81 ,255,129,1 59,1 31 ,249,1 53,1 95, 
255 

1990 DATAI 82,255,1 95,1 59,131 ,1 53,1 53,1 95, 
255 

2000 DATAI 83,255,1 29,1 53,243,231,231,231 , 
255 

2010 DATAI 84,255,1 95,153,1 95,1 53,1 53,195, 
255 

2020 DATAI 85,255,195,1 53,1 53,1 93,249,1 95, 
255 

2030 DATAI 86,255,255,231,255,255,2 31 ,255, 
255 

2040 DATAI 87,255,255,231,255,255,231 ,231 , 
207 

2050 DATAI 88,255,2 55,252,056,056,252,255, 
255 

2060 DATAI 89,195,1 95,195,195,1 95,195,195, 
195 

2070 DATAI 90,255,01 5,059,1 25,125,059,01 5, 
255 


2080 DATAI 91 ,195,1 53,249,243,231 ,255,231 , 
255 

2090 DATAI 92,2 55,2 55,2 55,1 29,1 29,2 55,2 55, 
255 

2100 DATAI 93,255,195,153,129,1 53,1 53,1 53, 
255 

2110 DATAI 94,255,131 ,153,1 31 ,153,1 53,131 , 
255 

2120 DATAI 95,255,195,153,1 59,1 59,1 53,1 95, 
255 

2130 DATAI 96,255,1 35,1 47,1 53,1 53,1 4 7,1 35, 
255 

2140 DATAI 97,2 55,1 29,159,135,1 59,1 59,1 29, 
255 

2150 DATAI 98,255,1 29,1 59,1 35,1 59,159,1 59, 
255 

2160 DATAI 99,255,1 95,1 53,1 59,145,1 53,1 95, 
255 

2170 DATA200,255,153,153,129,153,153,153, 
255 

2180 DATA201,255,231,231,231,231,231,231, 
255 

2190 DATA202,255,249,249,249,249,153,195, 
255 

2200 DATA203,255,147,135,143,135,147,153, 
255 

2210 DATA204,255,1 59,1 59,1 59,1 59,159,1 29, 
255 

2220 DATA205,255,1 56,136,1 28,1 48,1 56,1 56, 
255 

2230 DATA206,255,153,137,129,129,145,1 53, 
255 

2240 DATA207,2 55,195,1 53,1 53,1 53,1 53,1 95, 
255 

2250 DATA208,255,1 31 , 1 53,1 31 , 1 59,1 59,1 59 , 
255 

2260 DATA209,2 55,195,1 53,1 53,153,1 95,241 , 
255 

2270 DATA210,255,131 ,153,1 31,1 35,1 47,1 53 , 
255 

2280 DATA211,255,195,159,195,249,153,195, 
255 

2290 DATA212,255,129,231,231,231,231,231, 
255 

2300 DATA213,255,1 53,153,1 53,1 53,1 53,1 95, 
255 

2310 DATA214,255,153,153,153,153,195,231, 
255 

2320 DATA215,255,156,156,148,128,136,156, 
255 

2330 DATA216,255,153,195,231,195,153,153, 
255 

2340 DATA217,255,153,153,195,231,231,231, 
255 

23 50 DATA21 8,2 55,1 29,243,231 ,207,159,1 29, 
255 

2360 DATA219,231,231,231,000,000,231,231, 
230 

2370 DATA220,063,063,207,207,063,063,207, 
206 





Seguilo listalo Data G.P./O. 


2380 DATA221,231,231,231,231,231,231,231, 
230 

2390 DATA222,240,240,015,015,240,240,015, 
014 

2400 DATA223,204,102,051,153,204,102,051, 
1 52 

2410 DATA224,255,255,255,255,255,255,255, 

254 

2420 DATA225,015,015,015,015,015,015,015, 
01 5 

2430 DATA226,255,255,255,255,000,000,000, 
000 

2440 DATA227,000,000,255,248,255,255,255, 

255 

2450 DATA228,255,255,255,255,248,255,000, 
000 

2460 DATA229,063,063,063,063,063,063,063, 
063 

2470 DATA230,240,240,015,015,240,240,015, 
015 

2480 DATA231,252,252,252,252,252,252,252, 
252 

2490 DATA232,255,255,255,255,051,051,204, 
204 

2500 DATA233,051,102,204,153,051,102,204, 
153 

2510 DATA234,252,252,252,252,252,252,252, 
252 

2520 DATA235,231 ,231 ,231 ,224,224,231 ,231 , 
231 

2530 DATA236,000,000,063,248,120,120,120, 
120 

2540 DATA237,058,057,056,056,057,061,000, 
000 


2550 DATA238,000,000,254,002,002,194,243, 
255 

2560 DATA239,255,255,255,255,255,255,000, 
000 

2570 DATA240,000,000,061,057,056,056,057, 
058 

2580 DATA241,115,037,169,249,252,252,248, 
000 

2590 DATA242,000,248,252,252,249,169,037, 
115 

2600 DATA243,231,231,231,007,007,231,231, 
231 

2610 DATA244,063,063,063,063,063,063,063, 
063 

2620 DATA245,031,031,031,031,031,031,031, 
031 

2630 DATA246,248,248,248,248,248,248,248, 
248 

2640 DATA247,000,000,255,255,255,255,255, 
255 

2650 DATA248,000,000,000,255,255,255,255, 
255 

2660 DATA249,255,255,255,255,255,000,000, 
000 

2670 DATA250,254,252,249,147,135,143,159, 
255 

2680 DATA251,126,255,2 55,255,255,1 26,2 55, 
195 

2690 DATA252,120,120,120,120,248,063,000, 
000 

2700 DATA253,255,243,194,002,002,254,000, 
000 

2710 DATA254,195,255,126,255,255,255,255, 
126 

2720 DATA255,015,015,015,015,240,240,240, 
140,-3 


quest'ultimo programma verranno pub¬ 
blicati sul prossimo numero di Personal 
Software). Non sarà necessario, ovvia¬ 
mente, duplicare i file suddetti, a patto 
che i quattro programmi che li utilizza¬ 
no risiedano tutti sullo stesso disco. 

Nel caso in cui non disponiate di unità a 
dischi, sarà necessario copiare e regi¬ 
strare separatamente i due programmi 
suddetti. Segnate i nomi dei programmi 
sulle cassette in modo da non correre il 
rischio di invertirli, poiché ciò compro¬ 
metterebbe irrimediabilmente la corret¬ 
tezza del programma. 

Dovrete, inoltre, procurarvi due casset¬ 
te, una per Tool-Kit ed una per Grand 
Prix, riavvolgerle e quindi copiare i pro¬ 
grammi riportati sotto i rispettivi titoli 
(cioè i due programmi-caricatori) e regi¬ 
strarli su nastro (uno per nastro). In en¬ 
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trambi i casi, riavvolgete la cassetta e 
verificate ciascuna registrazione. 
Quando il registratore si arresterà limi¬ 
tatevi a premere il tasto Stop senza riav¬ 
volgere il nastro. Una volta estratte le 
cassette, avanzate il nastro di qualche 
centimetro facendo ruotare la bobina di 
trascinamento con il dito o con una 
biro, quindi riponete le cassette nella 
custodia dopo averle opportunamente 
contrassegnate. 

A questo punto dovrete riprendere il 
programma “Data G.P./O” e caricarlo in 
memoria. Mandatelo in esecuzione con 
una semplice istruzione Run. 

Il programma mostrerà sullo schermo 
un contatore indicante il numero di Po- 
ke del carattere, la cui forma viene ride¬ 
finita dai dati in corso di introduzione. 
Ad operazione terminata, il programma 


vi chiederà se desiderate registrare il file 
su disco o su nastro. Inserite nel regi¬ 
stratore la cassetta contenente Tool-Kit 
senza riavvolgerla, quindi premete N in 
risposta alla domanda propostavi dal 
programma. Il calcolatore risponderà 
con la consueta scritta “Press Play and 
Record on Tape". Eseguite quanto indi¬ 
cato. 

Quando il registratore si arresterà, non 
riavvolgete la cassetta ma limitatevi a 
premere il tasto Stop e a ripetere l'opera¬ 
zione di avanzamento "manuale" del 
nastro. Caricate, a questo punto, la cas¬ 
setta destinata a contenere Grand Prix 
e ripetete l’operazione suddetta. 

Una volta terminata la registrazione del 
file dati creato da "Data G.P./O" (il cui 
nome è "0/G.P."), battete da tastiera 
New e caricate in memoria il program- 
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ma di creazione del secondo set di ca¬ 
ratteri ridefinito. Caricato, quindi, il pro¬ 
gramma "Data G.P./1". mandiamolo in 
esecuzione e ripetiamo le operazioni 
già viste per il precedente, registrando 
una copia del file dati "1/G.P.", creato 
dal programma, sia in coda alla prima 
che alla seconda serie di programmi su 
cassetta. In entrambi i casi, non riawol- 
gete il nastro. 

A questo punto, dovreste trovarvi ad 
avere due cassette contenenti le se¬ 


guenti serie di programmi contigui. 
Potete ora copiare il programma “T.K.” 



Cassetta 

Tool-Kit 

Cassetta 
Grand Prlx 

Programma 
File seq 

File seq. 

Tool-Kit 

0/G.P. 

t/G.P. 

Grand Prix 
0/G.P. 

1/G.P 


(listato 3), controllarlo, registrarne una 
copia di back-up (cioè di riserva) su di 


un altro nastro; quindi riprendere la 
cassetta contrassegnata Tool-Kit e re¬ 
gistrarne una ulteriore copia usando il 
titolo "T.K.” (il titolo deve risultare leggi¬ 
bile con il calcolatore in formato 
maiuscolo/caratteri grafici; se vi trovate 
in minuscolo/maiuscolo, il nome del 
programma deve essere "t.k.". in minu¬ 
scolo). Il titolo è importante, poiché è 
con il nome indicato che il programma 
verrà caricato dal loader. 

La configurazione della prima cassetta 


Listato 2-11 programma Data G.P./1. 

0 POKE53280,1 5:POKE53281 ,15:PRINT"{CLR}": 

R$ = "(HOME)( 10 GIU'}" 

5 FORI = 1TO10 :A$(I)=LEFT$(R$,I):NEXT 
10 S=32768:E=34816:F$="1/G.P." 

20 READA:IFA=-3THEN40 

25 PRINTA?(5)TAB(3)"{ 5 SPAZl}{ 5 SIN) 

{RED}"A t 

30 FORI=0TO7:READB:POKES+A*8+1,B:NEXT:GOT 
020 

40 printa$(10)tab(3)"(blk)desideri OTTENE 
RE UN FILE SU NASTRO{ 5 SPAZI}0 SU DIS 
CO (N/D)?" 

50 GETA$ : IFA$O"N"ANDA$<>"D"THEN50 
55 PRINTTAB(21)"{SU){RED}"A$ 

60 DV=1-7*(A$ = "D"):IFDV=8THENF$ = "0 :"+F$:0 
PENI 5,8,15,"S"+F$:CLOSEl5 
70 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$) 

:POKE782,ZK/256 

80 POKE781 ,ZK-PEEK(782)*256:POKE780,LEN(T 
$):SYS65469 

90 POKE780, 1 :POKE781,DV:POKE782,1 :SYS6546 
6 

100 K=S:POKE254,K/256:POKE253,K-PEEK(254) 
* 256 :POKE780,253 

I10 K=E+1:POKE782,K/256:POKE781,K-PEEK(78 
2)*256:SYS65496 

120 IF(PEEK(783)AND1)OR(191ANDST)THENl40 
130 PRINTTAB(3)"FINITO":END 
140 PRINTTAB(3)"(GIU’}ERROREl RIPROVA":IF 
DV=1THENl60 

I50 OPENl5,8,15:INPUT#15,El$,E2$:PRINTEl$ 
,E2$ :CIiOSEl 5 

160 FORI=1T03000:NEXT:PRINT"(CLR)":GOTO40 

170 DATA001,000,000,060,102,126,102,102,0 
00 

180 DATA002,000,000,124,102,124,102,124,0 
00 

190 DATA003,000,000,060,102,096,102,060,0 
00 

200 DATA004,000,000,124,102,102,102,124,0 
00 

210 DATA005,000,000,126,096,120,096,126,0 
00 


220 DATA006,000,000,126,096,120,096,096,0 
00 

230 DATA007,000,000,062,096,110,102,060,0 
00 

240 DATA008,000,000,102,102,126,102,102,0 
00 

250 DATA009,000,000,024,024,024,024,024,0 
00 

260 DATA010,000,000,006,006,006,102,060,0 
00 

270 DATA011,000,000,102,108,120,108,102,0 
00 

280 DATA012,000,000,096,096,096,096,126,0 
00 

290 DATA013,000,000,099,119,127,107,099,0 
00 

300 DATA014,000,000,102,118,126,110,102,0 
00 

310 DATA01 5,000,000,060,102,102,102,060,0 
00 

320 DATA016,000,000,124,102,124,096,096,0 
00 

330 DATA017,000,000,060,102,102,060,006,0 
00 

340 DATA018,000,000,124,102,124,108,102,0 
00 

350 DATA01 9,000,000,062,096,060,006,1 24,0 
00 

360 DATA020,000,000,126,024,024,024,024,0 
00 

370 DATA021,000,000,102,102,102,102,060,0 
00 

380 DATA022,000,000,102,102,102,060,024,0 
00 

390 DATA023,000,000,099,107,127,119,099,0 
00 

400 DATA024,000,000,102,060,024,060,102,0 
00 

410 DATA025,000,000,102,102,060,024,024,0 
00 

420 DATA026,000,000,1 26,01 2,024,048,1 26,0 
00 

430 DATA027,195,195,195,195,195,195,195,1 
95 

440 DATA029,195,195,195,195,195,195,195,1 
95 
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sarà quindi la seguente: 

Tool-Kit 

0/G.P. 

1/G.P. 

T.K. 

Riavvolgete la cassetta e verificate la 
registrazione del programma “T.K.”, 
controllando, contemporaneamente, 
che la sequenza dei programmi incon¬ 
trati dal calcolatore corrisponda a quel¬ 
la indicata. 

Caricate, quindi, il primo programma 


della serie e mandatelo in esecuzione, 
lasciando il tasto Play premuto. Il pro¬ 
gramma prowederà a caricare i due file 
sequenziali di ridefinizione dei caratteri, 
quindi trasferirà al terzo banco di me¬ 
moria il controllo del chip grafico, defi¬ 
nendo opportunamente i puntatori al 
set di carattere ridefinito ed alla memo¬ 
ria di schermo. Infine, caricherà e prov¬ 
veder a mandare in esecuzione il pro¬ 
gramma vero e proprio per la creazione 
e la correzione dei file dati. 


Nel caso in cui il procedimento non si 
svolgesse correttamente, provvedete ad 
inserire una normale cassetta pulisci- 
testine nel vostro registratore e ripetete 
l'intera serie di operazioni, facendo at¬ 
tenzione alla sequenza di operazioni in¬ 
dicate ed usando cassette di adeguata 
lunghezza e di buona qualità (possibil¬ 
mente nuove). 

Non vi resta che copiare il vero e proprio 
programma di simulazione "G.P." (che 
verrà presentato nella seconda punta- 


Segulto listato Data G.P./1. 


450 DATA030,060,220,254,255,255,254,220,0 
60 

460 DATA031,060,059,127,255,255,127,059,0 
60 

470 DATA040,255,240,220,190,190,220,240,2 
55 

480 DATA041,255,015,059,125,125,059,015,2 
55 

490 DATA045,231,231,231,231,231,231,231,2 
55 

500 DATA048,000,060,102,102,102,102,060,0 
00 

510 DATA049,000,024,056,024,024,024,060,0 
00 

520 DATA050,000,060,102,012,024,048,126,0 
00 

530 DATA051,000,126,076,028,006,102,060,0 
00 

540 DATA052,000,014,030,054,102,127,006,0 
00 

550 DATA053,000,126,096,124,006,102,060,0 
00 

560 DATA054,000,060,096,124,102,102,060,0 
00 

570 DATA055,000,126,102,012,024,024,024,0 
00 

580 DATA056,000,060,102,060,102,102,060,0 
00 

590 DATA057,000,060,102,102,062,006,060,0 
00 

600 DATA060,255,2 55,252,056,056,2 52,2 55,2 
55 

610 DATA061 ,255,255,255,1 28,1 28,255,255,2 
55 

620 DATA062,255,255,063,028,028,063,255,2 
55 

630 DATA073,000,000,1 88,1 56,028,028,1 56,0 
92 

640 DATA074,058,057,056,056,057,061,000,0 
00 

650 DATA075,092,1 56,0 2 8,02 8,1 56,188,000,0 
00 

660 DATA076,255,255,255,255,248,255,000,0 
00 


670 DATA079,000,000,255,248,255,255,255,2 
55 

680 DATA080,000,000,255,031,255,255,255,2 
55 

690 DATA085,000,000,061,057,056,056,057,0 
58 

700 DATA095,231,231,231,224,112,127,063,0 
15 

710 DATAI 05,231,231 ,231 ,1 35,1 42,254,252,2 
40 

720 DATAI 09,195,255,126,2 55,2 55,255,2 55,1 
26 

730 DATAI 10,126,2 55,2 55,255,255,126,2 55,1 
95 

740 DATAI 1 2,126,255,255,255,255,1 26,255,1 
95 

750 DATAI 13,1 1 5,037,169,249,252,252,248,0 
00 

760 DATAI 14,000,2 4 8,2 52,252,249,169,037,1 
15 

770 DATAI 22,255,255,255,255,0 31 ,2 55,000,0 
00 

780 DATAI 25,1 95,255,1 26,2 55,2 55,2 55,255,1 
26 

790 DATAI 28,240,2 52,2 54,1 42,1 35,231 ,231 ,2 
55 

800 DATAI 29,060,102,102,1 26,102,102,102,0 
00 

810 DATAI 30,124,102,1 02,124,102,102,1 24,0 
00 

8 20 DATAI 31 ,060, 102,096,096,096,102,060,0 
00 

8 30 DATAI 32,1 20,10 8,102,102,102,108,120,0 
00 

840 DATAI 33,126,096,096,120,096,096,1 26,0 
00 

850 DATAI 34,1 26,096,096,1 20,096,096,096,0 
00 

860 DATAI 35,060,102,096,1 10,102,102,060,0 
00 

870 DATAI 36,102,102,102,126,1 02,102,102,0 
00 

880 DATAI 37,024,024,024,024,024,02 4,024,0 
00 

890 DATAI 38,006,006,006,006,006,102,060,0 
00 
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Seguito Datato Data G.P.M. 

900 DATAI 39,102,108,1 20, 1 12,1 20,108,1 02,0 
00 

910 DATAI 40,096,096,096,096,096,096,126,0 
00 

92 0 DATAI 41 ,099,1 1 9,127,107,099,099,099,0 
00 

9 30 DATAI 42,102,1 1 8,1 26,1 26,1 10,102,102,0 
00 

940 DATAI 43,060,102,102,102,102,102,060,0 
00 

950 DATAI 44,124,102,102,1 24,096,096,096,0 
00 

960 DATAI 45,060, 102,102,102,102,060,01 4,0 
00 

970 DATAI 46,124,102,102,1 24,120, 108,102,0 
00 

980 DATAI 47,060,102,096,060,006,102,060,0 
00 

990 DATAI 48,1 26,0 24,024,024,024,024,024,0 
00 

1000 DATAI 49,102,102,102,102,102,102,060, 
000 

1010 DATAI 50,102,102,102,102,102,060,024, 
000 

1020 DATAI 51,099,099,099,107,1 27,1 19,099, 
000 

1030 DATAI 52,102,102,060,024,060,102,102, 
000 

1 040 DATAI 53,102,102,102,060,024,024,024, 
000 

1050 DATAI 54,126,006,012,024,048,096,1 26, 
000 

1060 DATAI 76,2 55,195,1 53,1 53,1 53,153,1 95, 
255 

1070 DATAI 77,255,231 ,199,231 ,231 ,231,1 95, 
255 

1080 DATAI 78,2 55,195,1 53,243,231,207,1 29, 
255 

1090 DATAI 79,2 55,1 29,179,227,249,153,1 95, 
255 


1100 DATAI 80,255,241 ,22a,201,153,1 28,249, 
255 

1110 DATAI 81 ,255,129,1 59,131 ,249,1 53,1 95, 
255 

1120 DATAI 82,2 55,195,159,1 31,153,153,195, 
255 

1130 DATAI 83,255,129,1 53,2 4 3,231,231 ,231 , 
255 

1140 DATAI 84,2 55,1 95,1 53,195,153,1 53,1 95, 
255 

1150 DATAI 85,255,1 95,1 53,1 53,193,249,1 95, 
255 

1160 DATAI 92,2 31 ,231 ,231 ,224,1 1 2,1 27,063, 
01 5 

1170 DATAI 93,231,231 ,231 ,1 35,142,254,252, 
240 

1180 DATA201,000,000,252,031,030,030,030, 
030 

1190 DATA202,120,120,120,120,248,063,000, 
000 

1200 DATA203,030,030,030,030,031,252,000, 
000 

1210 DATA213,000,000,063,248,120,120,120, 
120 

1220 DATA223,240,252,254,142,135,231,231, 
255 

1230 DATA233,01 5,063,127,1 12,224,231,231 , 
255 

1240 DATA237,255,199,067,064,064,127,000, 
000 

1250 DATA238,000,000,254,002,002,194,227, 
255 

1260 DATA240,000,000,127,064,064,067,1 99, 
255 

1270 DATA241,206,164,149,159,063,063,031, 
000 

1280 DATA242,000,031,063,063,159,149,164, 
206 

1290 DATA253,255,227,194,002,002,254,000, 
000 

1300 DATA255,015,015,015,015,240,240,240, 
109,-3 


la) e registrarlo in coda alla cassetta 
etichetta Grand Prix. Dal momento 
che potreste facilmente incorrere in ba¬ 
nali errori, vi sconsiglierei vivamente di 
utilizzare per i due programmi le faccia¬ 
te di una stessa cassetta. 

Gli utenti di unità dischi, invece, posso¬ 
no registrare le varie parti dei due pro¬ 
grammi su di uno stesso disco; provve¬ 
dendo a mandare in esecuzione i due 
programmi "Data G.P./0" e “Data 
G.P./1", e a registrare i file sequenziali 
creati da questi sullo stesso disco di 
Tool-Kit, Grand Prix, “T.K." e "G.P.". 
Per quanto riguarda i nomi da attribuire 


agli ultimi due programmi valgono le 
considerazioni già viste per la loro regi¬ 
strazione su nastro. 

Per disporre del programma di corre¬ 
zione dei dati dovrete caricare ed ese¬ 
guire Tool-Kit (listato 4), che prowede- 
rà a leggere i due file sequenziali e a 
caricare “T.K." e a cedergli, quindi, il 
controllo. Una volta creato un file dati 
riguardante una determinata manife¬ 
stazione, e averlo registrato su nastro o 
su disco, si può caricare Grand Prix 
(che leggerà i due soliti file sequenziali, - 
in comune tra i due programmi, su disco 
- ed il vero e proprio programma “G.P.") 


e leggere i dati dalla periferica su cui 
sono stati registrati. Anche questo pro¬ 
gramma sarà pubblicato nella seconda 
parte. 

A questo punto (!) siete pronti per parti¬ 
re. 

Il funzionamento 
di Tool-Kit 

Vediamo ora le opzioni fornite dai due 
programmi. 

Tool-Kit costituisce, come detto, un pro¬ 
gramma ausiliario che consente un ra¬ 
pido e preciso aggiornamento dei dati 
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utilizzati da Grand Prix per implementa¬ 
re la simulazione dello svolgimento di 
un gran premio. Il file realizzato per suo 
tramite contiene tutti i dati utilizzati dal 
secondo programma e caratteristici dei 
singoli piloti partecipanti alla manife¬ 
stazione. Ciò significa che, all’atto del¬ 
l'esecuzione, sarà necessario indicare 
solo quei dati che sono specifici della 
gara che si desidera simulare (come 
lunghezza della pista, numero di giri da 
compiere o, come vedremo, probabilità 
di fondo stradale bagnato). 

Tool-Kit, come altri programmi realizzati 
in passato, utilizza una tecnica auto¬ 
esplicativa a menu annidati uno nell'al¬ 
tro. Ciò fornisce una struttura a più livel¬ 
li, che consente sia di analizzare singole 
voci separatamente per tutti i piloti, sia 
di eliminare o inserire i dati di alcuni 
concorrenti o, addirittura, di interi team. 
Vediamo, in dettaglio, i vari menu offerti 
dal programma. 

Dopo aver caricato e mandato in ese¬ 


cuzione Tool-Kit, sullo schermo compa¬ 
rirà la scritta "Attendere prego" e, dopo 
un intervallo di tempo dipendente dalla 
periferica impiegata, comparirà il menu 
principale del programma. 

Esso elenca quattro voci significative, 
oltre alla possibilità di interrompere il 
programma. Per scegliere una qualsiasi 
delle opzioni proposte è sufficiente pre¬ 
mere il tasto corrispondente al valore 
numerico indicato a lato di ciascuna 
voce. 

Alcune di esse richiameranno dei menu 
di secondo livello, altre svolgeranno di¬ 
rettamente le rispettive funzioni, ritor¬ 
nando il controllo al menu principale. 
Nel caso in cui si cerchi di compiere 
manovre illegali, come la correzione o la 
registrazione di dati inesistenti, il pro¬ 
gramma provvederà ad avvisarvi del¬ 
l'errore e vi metterà in condizione di por¬ 
vi riparo. 

Al momento della comparsa iniziale 
del menu principale sono solo due le 


possibilità a vostra disposizione: la let¬ 
tura di un file dati precedentemente re¬ 
gistrato su nastro o su disco o l'inizializ- 
zazione del sistema. 

Quest'ultima opzione non sarebbe 
stata, a rigor di logica, indispensabile. 
Dal momento che l'opzione di "corre¬ 
zione dati” dispone di una funzione di 
inserimento dei dati di nuovi conduttori, 
sarebbe stato, ovviamente, possibile 
costituire un file di base del sistema at¬ 
traverso il reperimento ed il paziente in¬ 
serimento dei dati concernenti tutti i 
partecipanti alla prima gara dell'anno. 
Dato, però, che questa operazione si 
sarebbe rivelata, senz'alcun dubbio, 
decisamente laboriosa e niente affatto 
scevra di errori, si è preferito inserire in 
questo programma quelle frasi Data 
che erano state rimosse da Grand Prix, 
in modo da poter disporre di un como¬ 
do file dati iniziale, corrispondente al 
primo gran premio della stagione (Bra¬ 
sile a Jacarepagua'). Una volta creato 


Listalo 3 • Il programma T.K. 


10 OPENl 5,8,1 5:VO = l 5:Q*25: NI»Q:A=25:B=14 : 
GOSUB70 

20 DATA"DEL","SEQ","PRG","USR","REL" 

30 W$*="(HOME){ 26 GIU 1 }": FORI = 1T026:W$(I) 
=LEFT$(W$,I):NEXT 
40 FORI=OTO4:READT$(I):NEXT 
50 CN(0) = 146:CN(1 )=18:GOSUB830:GOSUBl20:C 
LOSEl5 : END 

60 FORKL=1TO5000:NEXT:RETURN 
70 DIMEL?(30,4),EL(30,23),W$(26),TE$(20,3 
) ,TE (20,7) ,VO ( 30) 

80 DIMNC(15),CO$(15):RETURN 
90 FORPJ=52160TO52200:POKEPJ,32:NEXT:RETO 
RN 

100 FORPJ = 52080T0 52 200:POKEPJ,32:NEXT:RET 
URN 

110 PRINTW?(25)TAB(12)"(RED}ATTENDERE PRE 
GO(SU)(BLK)": RETURN 

120 F8=0:F9=0:NF=0:PRINT"(CLR)"CHR$(142) 

130 GETM$:PRINT"(CLR)"TAB(16)"(RED)TOOL-K 
IT{BLK}" 

140 PRINTW$(5)TAB(3)"(RED}(RVS}1(OFF} 
(BLK) - LETTURA DATI" 

150 PRINTW$(7)TAB(3)"(RED}{RVS}2(OFF} 
(BLK) - CORREZIONE DATI" 

160 PRINTW?(9)TAB(3)"(RED}(RVS}3{OFF} 
{BLK} - REGISTRAZIONE DATI" 

170 PRINTWS(11)TAB(3)"{RED}{RVS}4{OFF} 
{BLK} - INIZIALIZZAZIONE" 


180 PRINTW5(13)TAB(3)"{RED}{RVS}0{OFF} 
{BLK} - FINE" 

190 GOSUB720 

200 GETM$:IFM$=""ORPEEK(203)=10RPEEK(203) 
=64THEN200 

210 M=VAL (M$ ) +1 : IFF8 = 0AND (M02ANDM05) THE 
NGOSUB750:GOTO200 
220 IFM<1ORM>5THEN200 
230 IFNF=1ANDM=5THEN200 
240 ONMGOSUB280,290,480,490,620 
250 IFF9=1THENRETURN 
260 IFF9=2THENF9=0:GOTOl90 
270 GOTOl30 
280 F9=! : RETURN 

290 F8=1 :PRINT"{CLR}"TAB(14)"{RED}LETTURA 
DATI{BLK}" 

300 SI=1:GOSUB380:IFND$="N"THENOPENl,1,0, 
NF$:GOTO330 

310 IFND$ = "V"THENGOSUB4530: GOTO290 
320 NF$="@0:"+NF$+",S,R":OPENl,8,0,NF$:GO 
SUB4860: IFSPOOTHENCLOSEl :GOTO290 
330 INPUT#1,Q: INPUT#1,NI:INPUT#1,A:INPUT# 
1,B:FORI=1TOA:FORJ=OTO4 
340 INPUT#!,EL$(I,J):NEXT:FORJ=0TO23:INPU 
T#1,EL(I,J):NEXT:NEXT 
350 FORI=lTOB:FORJ“0TO3:INPUT*!,TE$(I,J): 

NEXT:FORJ=0TO7: INPUT#!,TE(I,J) :NEXT 
360 NEXT:GOSUB4860:CLOSEl:IFSP<>0THEN290 
370 RETURN 

380 PRINTW?(5)TAB(3)"{RVS}{RED}N{OFF} 
{BLK} - DATI REGISTRATI SU NASTRO" 

390 PRINTW$ (7)TAB(3)" {RVS } {RED}D {OFF} 
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Seguito listato T.K. 

{BLK} - DATI REGISTRATI SU DISCO" 

400 PRINTW?(9)TAB(3)"{RVS}{RED}V{OFF} 

{BLK} - VISUALIZZAZIONE DIRECTORY": IF 
SI=lTHENT30 

410 PRINTWS(11)TAB( 3 )"{RVS}{RED}I{OFF} 
{BLK} - INIZIALIZZAZIONE DISCHI" 

420 PRINTWS(T3)TAB(3)"{RVS}{RED}P{OFF} 
{BLK} - PULIZIA DISCHI" 

430 GETND$:IFND$=""THEN430 
440 IFND$<>"N"ANDND$<>"D"ANDND$<>"I"ANDND 
$< >"V"ANDND$< >"P"THEN430 
450 IFND$="V"ORND$="I"ORND$="P"THENRETURN 

460 PRINTWS(16)TAB(3)"NOME DISTINTIVO DEL 
FILE DATI{RED}" 

470 PRINTTAB(3)"{RED}";:INPUTNFS: RETURN 
480 GOSUBl670:RETURN 

490 PRINT"{CLR}"TAB(11)"{RED}REGISTRAZION 
E DATI{BLK}" 

500 SI=0:GOSUB380:IFND$="N"THENOPENl,1,2, 
NF 4:GOTO550 

510 IFND$ = "V"THENGOSUB4530 : GOTO490 
520 IFND$="I"THENGOSUB4790:GOTO490 
530 IFND$="P"THENGOSUB4830:GOTO490 
540 NF$="@0:"+NF$+",S,W":OPENl,8,1,NF$:GO 
SUB4860: IFSPOOTHENCLOSEl :GOTO490 
550 PRINT#1,Q:PRINT#1,NI:PRINT#1,A:PRINT# 

1,B:FORI=lTOA:FORJ=0TO4 
560 EL$ =CHR$(34)+EL$(I,J)+CHR$(34) 

570 PRINT#1,EL$:NEXT:FORJ=0TO23:PRINT#1,E 
L ( I,J):NEXT:NEXT 

580 FORI»lTOB:FORJ = OTO3:TE$=«CHR$ (34)+TE$ ( 
I,J)+CHRS (34) 

590 PRINT#1,TE$:NEXT:FORJ=0TO7:PRINT#1,TE 
(I ,J):NEXT 

600 NEXT: GOSUB4860 :CLOSE1 : IFSPO0THEN490 
610 RETURN 

620 F8=1 :F9=2:NF=1 :GOSUBl10:GOSUBl580:GOS 
UB90:RETURN 

630 EL ( VO ( I ) ,11)=»1 : SV= 99999999 : VA= 9999999 
9:IFI=1THEN650 

640 SV=EL(VO(I),3)-EL(VO(I-1),3) 

650 IFI-NITHEN670 

660 VA=EL(VO(I+l),3)-EL(VO(I),3) 

670 DD=SV:IFVA<=SVTHENDD=VA 
680 DD=(DD/60000)-(GD-G)/I0 :EL(VO(I),2)-l 
03-DD/5 

690 CR“EL(VO(I),8) - (GD-G)*LP/EL(VO(I),9)+ 
7* (100-EL(VO(I),2))/10+l 
700 IFCR>0THENRETURN 

710 EL(VO(I),2)=EL(VO(I),2)+(CR-l.5+RND(T 
I ))* 10/7 : RETURN 

720 POKE54296,VO:POKE54275,15:POKE54274,1 
5:POKE54277,0:POKE54278,240 
730 V= 54276:HF=54273:LF=HF-1 :POKEV,17:POK 
EHF,60 :FORT=lTOl5 :POKELF,2*T:NEXT 
740 POKE54 2 76,0 :POKE542 96,0 :POKEHF,0 :POKE 
LF,0:RETURN 


750 PRINTWS(23)TAB(3)"{RED}NON ESISTONO D 
ATI SU CUI OPERARE" 

760 GQSUB720:GOSUB60:GOSUBl00 : RETURN 
770 DATAI 44,5,28,1 59,1 56,30, 31 ,1 58,1 29,1 4 
9,150,151,152,153,154,152,9,6,4,3,2,1 

780 DATA"MINUTI PRIMI" , "MINUTI SECONDI"," 
MILLESIMI" 

790 DATA"NERO","BIANCO","ROSSO","BLU-VERD 
E","PORPORA","VERDE","BLU","GIALLO" 
800 DATA"ARANCIO","MARRONE","ROSSO-CHIARO 
","GRIGIO-1","GRIGIO-2" 

810 DATA" VERDE-CHIARO", "AZZURRO" , "GRIGIO- 
3" 

820 REM DATA ROUTINE IN LINGUAGGIO MACCHI 
NA PER LO SCROLLING 
830 FORIW=OTOl5:READNC(IW):NEXT 
840 FORIW=!T06:READPU(IW):NEXT 
850 F0RI=1T03:READCH$(I):NEXT:FORCO=0TOl5 
:READCO?(CO):NEXT 
860 RETURN 
870 REM DATA 

880 DATA"LAUDA N"MCLAREN-PORSCHE MP4-2 
B" 

890 DATAI,1,29,984,0,0,0,2,64.45,540,0,15 
50 

900 DATA"PROST A.","MCLAREN-PORSCHE MP4-2 
B" - - _ 

910 DATA2,1,29,117,0,0,0,2,63.25,540,0,15 
50 

920 DATA"BRUNDLE M.","TYRREL-FORD 012" 

930 DATA3,1,36,157,0,0,1 ,6,71 . 70,540,0,1 8 
00 

940 DATA"JOHANSSON S.","TYRREL-FORD 012" 
950 DATA4,1,37,293,0,0,1,6,64.47540,0,180 
0 

960 DATA"MANSELL N.","WI LLIAMS- HONDA FWl0 

970 DATA5 ,1,28,848,0,0,0,14,79.95,540,0,1 
450 

980 DATA"ROSBERG K.","WILLIAMS-HONDA FWl0 

990 DATA6,1,27,864,0,0,0,14,68.30,540,0,1 
450 

1000 DATA"PIQUET N.","BRABHAM-B.M.W. BT54 

1010 DATA7,1,29,855,0,0,0,6,69.75,540,0,1 
400 

1020 DATA"HESNAULT F.","BRABHAM-B.M.W. B 

T54" • ~ •- - 

1030 DATA8,1,32,904,0,0,0,6,72.65,540,0,1 
400 

1040 DATA"WINKELHOCK M.","RAM-HART 03" 

1 050 DATA9,1 ,32,560,0,1 ,1 ,5776.25,540,1 ,1 
470 

1060 DATA"ALLIOT P.","RAM-HART 03" 

1070 DATAIU,1 ,35,726,07T71 ,5,72.45, 540,1 , 

1 470 

1080 DATA"DE ANGELIS E.","LOTUS-RENAULT 9 
7T " ~ “ 





questo file iniziale è possibile accedere 
ad una delle altre opzioni. 
è possibile, ad esempio, possibile regi¬ 
strare il contenuto attuale delle matrici 
di dati su periferica, premessa indispen¬ 
sabile per il loro utilizzo da parte di 
Grand Prix. A questo scopo premiamo il 
tasto 3, corrispondente alla voce del 
menu "Registrazione dati". 

Il menu principale lascerà il posto ad 


un menu di livello inferiore, composto 
da cinque voci. Le prime due consento¬ 
no la registrazione dei dati attualmente 
presenti nel sistema su nastro o su di¬ 
sco. Nel caso in cui si scelga una di 
queste due possibilità vi verrà chiesto di 
specificare un nome per il file. Personal¬ 
mente siamo soliti indicare la sigla auto¬ 
mobilistica della nazione in cui si svolge 
la manifestazione, seguita dalla lun¬ 


ghezza in metri della pista e dal numero 
di giri che le vetture dovono compiere. 
Nel caso del primo gran premio della 
stagione “BR 5031/61". Da notare, fra 
l'altro, che, nel caso in cui si desideri 
registrare su disco copie successive di 
un file con lo stesso nome, non è neces¬ 
sario indicare il prefisso "@ 0:”, dal mo¬ 
mento che esso viene automaticamente 
premesso al nome del file. Nel caso di 


Seguilo listato T.K. 


1090 DATAI 1 ,1 ,28,81 ,0,0,1,0,79.50, 540,0,1 
370 

1100 DATA"SENNA A.", "LOTUS-RENAULT 97T" 
1110 DATAI ?,1 ,28,389,0,0,1 ,0,69.2 5,540,0, 
1 370 

1120 DATA"TAMBAY P.","RENAULT RE60" 

1130 DATAI 5,1,30,754,0,0, 1 ,7,78.10,540,0, 
1370 

1140 DATA"WARWICK D.","RENAULT RE60" 

1150 DATAI (T,1 ,30,100,0,0,1 ,7, 78.15,540,0, 
1370 

1160 DATA"BERGER G.","ARROWS-B.M. W. A8" 
1170 DATAI 7,1 ,34,773,0,1,0, 9 >70.55,5(?0,1 , 
1400 

1180 DATA"BOUTSEN T.","ARROWS-B .M.W. A8" 

1190 DATAI 8,1 ,30,953,0,T,0,9, 7*.707560, 1, 
1400 

1200 DATA"BALDI M . ","SPIRIT-HART 201" 

1210 DATA2T, 1 , 41 , 330, (T, 0,0,0,69. 45, 560,0, 
1470 

1220 DATA"PATRESE R.","ALFA ROMEO 185 T" 
1230 DATA27,1 ,31,7^0,0,IT, 1 ,5,74.35,550,0, 
1400 

1240 DATA"CHEEVER E.", "ALFA ROMEO 185 T" 
1250 DATA21,1,33,9T, 0 ,0,1 ,5,77.70,550,0,1 
400 

1260 DATA"GHINZANI P.", "OSELLA-A.R. FA 1 
F" 

1270 DATA24,1,36,743,0,0,1,14,80.00,560,0 
,1370 

1280 DATA"DE CESARIS A.","LIG IER-RENAULT 
JS24" 

1290 DATA25,1,31,411,0,0,1,14,73.95,550,0 
,1370 

1300 DATA"LAFFITE JLIG IER-RENAULT JS 
24" “ 

1310 DATA26,1,32,21,0,0, 1,14,62.10,550,0, 
1370 

1320 DATA"ALBORETO M.", "FERRARI 156/85" 
1330 DATA27,1,27,768,0,0,1,2,74.00,540,0, 

1 450 

1340 DATA"ARNOUX R.","FERRARI 156/85" 

1350 DATA28,1,29,^12,0,0,1,2,66.55,540,0, 
1450 

1 360 DATA"MARTINI P.","MINARDI- FORD Mi 85" 


1370 DATA29,1,44,406,0,1,1,6,64.45,560,1, 
1 800 

1380 DATA"MCLAREN INTERNATIONAL",0,2 
1390 DATA"TYRREL RACING ORGANISATION",1,6 

1400 DATA"WILLIAMS GRAN PRIX ENGINEERING" 
,0,14 

1410 DATA"MOTOR RACING DEVELOPMENT",0,6 
1420 DATA"RAM AUTOMOTIVE",1,5 
1430 DATA"JOHN PLAYER SPECIAL IX)TUS",1,0 
1440 DATA"REGIE RENAULT SPORT",1,7 
1450 DATA"ARROWS RACING TEAM",0,9 
1460 DATA"SPIRIT RACING TEAM",0,0 
1470 DATA"EURORACING ALFA ROMEO",1,5 
1480 DATA"OSELLA SQUADRA CORSE",1,14 
1490 DATA"LIGIER AUTOMOBILES",1,14 
1500 DATA"FERRARI REPARTO CORSE",1,2 
1510 DATA"MINARDI TEAM",1,6 
1520 DATAI,2,3,4,5,6,7,8,9,10,11,12,15,16 
,17,18,21,0 

1530 DATA22,23,24,0,25,26,27,28,29,0 
1540 DATA"tyj<I","ALAIN","MARTIN","STEFAN" 
,"NIGEL","KEKE","NELSON","FRANCOIS" 

1550 DATA"MANFRED","PHILIPPE","ELIO","AYR 
TON","PATRICK","DEREK","GERHARD" 

1560 DATA"THIERRY","MAURO","RICCARDO","E 
DDIE'V'GHINZANI 17 

1570 DATA"ANDREA","JACQUOT","ALBO","RENE' 
","MARTINI" 

1580 T9=0 :FORP=1TOA:READTl$ :READT2$:READE 
L (P , 4) :READMP:READMS:READMM 
1 590 READEL(P,23):READEL(P,11) :READEL(P,1 
3):READEL(P,14):READEL(P,15) 

1600 READEL(P,l6):READEL:EL(P,17)=EL+1:EL 
(P,l8)=EL+1:READEL(P,9) 

1610 EL$(P,1)=LEFT$(T1$+"{ 11 SPAZI}",15) 
:EL$(P,2)=LEFT$(T2$+ m { 12 SPAZI}",21 
) 

1620 EL(P,1)=(((MP*60)+MS)*1000+MM):EL(P, 
19)=MP:EL(P,20)=MS 

1630 EL(P,21)=MM:EL(P,22)=EL(P,18):EL(P,1 
0)=9E9:NEXT: FORIW=1T06: FORI = 1TOB 
1640 READTES(1,1) :F0RJ = 6T07: READTE(I,J):N 
EXT : NEXT : FORI <= 1 TOB : FORJ = 1 TO 2 
1650 READTE(I,J):TE$(I,J +1)*"NON QUALIFIC 
ATO":NEXT:NEXT 

1660 FORP=lTOA:READTl$ :EL$(P,3)=LEFT$(Tl$ 
+"{ 8 SPAZI}",8):NEXT:RETURN 
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1670 F7=0:PRINT"{CLR}"TAB(12)"{RED}CORREZ 
IONE DATI" 

1680 PRINTW$(5)TAB(3)"{RVS}{RED}1{OFF} 

{BLK} - AGGIORNAMENTO DATI CONDUTTOR 
I" 

1690 PRINTWS(7)TAB(3)"{RVS}{RED}2{OFF} 

{BLK} - INSERIMENTO DATI CONDUTTORI" 

1700 PRINTWS(9)TAB(3)"{RVS}{RED}3{OFF} 

{BLK} - CANCELLAZIONE DATI CONDUTTOR 
I" 

1710 PRINTW$(11)TAB(3)"{RVS}{RED}4{OFF} 

{BLK} - AGGIORNAMENTO DATI CONCORREN 
TI" 

1720 PRINTW$(13)TAB(3)"{RVS}{RED}5{OFF} 

{BLK} - CANCELLAZIONE DATI CONCORREN 
TI" 

1730 PRINTW$(15)TAB(3)"{RVS}{RED}0{OFF} 
{BLK} - FINE" 

1740 GOSUB720 

1750 GETCS:IFC$=""ORPEEK(203)=10RPEEK(203 
)-64THEN1750 

1760 C*VAL(C$)+1:IFC<lORC>6THENl750 
1770 UY=0:ONCGOSUBl800,1810,1820,2220,325 
0,3470 

1780 IFF7=lTHENRETORN 
1790 GOTO1670 
1 800 F7*> 1 : RETURN 
1810 GOSUB2380:RETURN 
1820 IFA=30THENYT=1:GOSUB3890:RETURN 
1830 A-A+l:GOSUB4480:PRINTWS(5)"{BLK}NOME 
NUOVO PILOTA (MAX. 15 CARATTERI) 

{RED}" 

1840 INPUTTl$ :EL$(A,l)=LEFT$(Tl$+" 

{ 16 SPAZI}",15) 

1850 GOSUB4480:PRINTWS(5)"{BLK}NOME NUOVO 
PILOTA (MAX. 8 CARATTERI)TRED}" 

1860 PRINT"{BLK}PER LA TABELLA DI SEGNALA 
ZIONE{RED}" 

1870 INPUTTl$:EL$(A,3)=LEFT$(Tl$+" 

{ 7 SPAZI}",8) 

1880 GOSUB4480:PRINTWS(5)"{BLK}NOME NUOVA 
VETTURA (MAX. 21 CARATTERI){RED}":I 
NPUTT1$ 

1890 EL$(A,2)=LEFT$(Tl$+"{ 16 SPAZI}",21) 

1900 GOSUB4480:PRINTW$(5)"{BLK}NUMERO DI 
GARA (<=99){RED}{ 5 SPAZI}! 5 SIN}"; 
;INPUTNG 

1910 TR^O:GOSUB3920:IFTR“1THENGOSUB3940:G 
OT01900 

1 920 IFNG<OORNG>990RNGOINT(NG) THENl 900 
1930 EL(A,4)=NG 

1940 GOSUB4480:PRINTWS(5)"{BLK}INDICE DI 
RENDIMENTO DELLA VETTURA" 

1 950 PRINTWS(6)"IN M/L.":IJ-9: LI = 1000:LS = 
2500 

1960 HG$-"INDICE DI RENDIMENTO":I=A:W=8:G 


OSUB2(j30 

1970 GOSUB4480:PRINTWS(5)"{BLK}COLORE NUO 
VA VETTURA":W*7:WY=0:GOSUB3960 
1980 I=A:W=9:GOSUB4000 

1990 GOSUB4480:PRINTWS(5)"{BLK}PESO DEL N 
UOVO PILOTA IN KG.":HG$="PESO PILOTA 

n 

2000 IJ=15:LI-50:LS-90:I-A:W=7:GOSUB2630 
2010 GOSUB4480:PRINTWS(5)"{BLK}PESO DELLA 
NUOVA VETTURA IN KG.":HG$="PESO VET 

TURA" 

2020 IJ=16:LI=540:LS*9E9:I=AsW=7:GOSUB263 
0 

2030 GOSUB4480:PRINTWS(5)"{BLK}TEMPO SUL 
GIRO IN PROVA":W»6:I=A:GOSUB4060 
2040 GOSUB4480:PRINTWS(5)"{BLK)TIPO DI PN 
EUMATICI ADOTTATO AL VIA":W=7:I=A:GO 
SUB4130 

2050 GOSUB4480:PRINTW$(5)"{BLK}VUOI INSER 
IRE IL PILOTA IN UN TEAM" 

2060 PRINTWS(6)"PRESISTENTE? (S/N)":GETR$ 

:IFR$=""THEN2060 

2070 IFR$<>"S"ANDR$<>"N"THEN2060 
2080 IFR$="N"THENUY=1sGOSUB3370:GOT02180 
2090 GOSUB4480:PRINTW$(3)TAB(3)"{REDjTEAM 
DISPONIBILI" 

2100 CO=0 : FORTY=l TOB: IFTE (TY ,2) O0THEN21 3 
0 

2110 TY$=STR$(TY):TY$»RIGHT$("{ 2 SPAZI} 

"+TY$,2):Al=CN(TE(TY,6)):A2=NC(TE(TY 

, 7 >) 

2120 PRINTW$(5+CO)"{RVS}{RED}"TY$"{OFF} 
{BLK} -"CHR$(A1)CHR$(A2)TE$(TY,1)" 
{OFF}":CO=CO+2 

2130 NEXT:PRINTW$(20)TAB(3)"{BLK}IN CHE T 
EAM VUOI INSERIRE LA VETTURaIrED} " 
2140 PRINTW$(21)TAB(3)"{ 7 SPAZI} 

{ 7 SIN}"; HNPUTYT 

2150 IFYT<0ORYT>20ORYT<>INT(YT)THEN21 40 
2160 IFTE(YT,2) O0THEN21 40 
2170 TE(YT,2)=EL(A,4): TE(YT,4)=EL(A,4) 
2180 PRINTW$(24)TAB(3)"{BLK}ALTRI NUOVI C 
ONDUTTORI (S/N)":GOSUB770 
2190 GETR$:IFR$ = ""OR(R$<>"S"ANDR$<>"N")TH 
EN2190 

2200 IFR$="S"THENl820 
2210 RETURN 

2220 PRINT"{CLR}"TAB(8)"{RED}CANCELLAZION 
E CONDUTTORI{BLK}":CC=1 
2230 CC$=STR$(CC):CC$-RIGHT$("{ 2 SPAZI} 

" +CC$ , 2) : IFCOATHEN2280 
2240 W*INT(CC/2) :TB«20: IFWOCC/2THENTB» 1 : 
W=W+1 

2250 Al=CN(EL(CC,13)):A2=NC(EL(CC,14)) 
2260 PRINTWS(W+3)TAB(TB)"{BLK}"CC$" "CHR$ 
(Al)CHR$(A2)LEFT$(EL$(CC,1),18)" 
{OFF}" 

2270 CC=CC+1:GOTO2230 

2280 PRINTWS(W+6)TAB(3)"{BLKjQUALE CONDUT 
TORE DESIDERATE" 

2290 PRINTWS(W+7)TAB(3)»{BLK}ELIMINARE 
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registrazione su di uno stesso disco, 
così come avviene per i nastri, la cancel¬ 
lazione del contenuto precedente del 
file è quindi automatica. 

Le tre voci successive di questo menu 
di secondo livello riguardano esclusiva- 
mente i possessori di unità dischi. Esse 
consentono di visualizzare la directory 
di un disco già inizializzato, di formatta¬ 
re un disco vergine o di cancellare uno 


dei file presenti sul disco, specificando¬ 
ne esattamente il nome. Tutte queste 
opzioni prevedono il rientro del menu 
stesso, da cui si esce, quindi, solo regi¬ 
strando il contenuto attuale delle matri¬ 
ci del sistema su di una qualsiasi perife¬ 
rica. L'uso di queste opzioni è stato in¬ 
fatti pensato per coloro che si trovasse¬ 
ro nella necessità di disporre di spazio 
su disco per registrare i dati creati dal 


programma senza sapere se tale spazio 
esiste. 

Tutte le opzioni, cosi come quella di 
registrazione su unità dischi, prevedo¬ 
no la lettura del canale di errore, con 
conseguente segnalazione di eventuali 
malfunzionamenti od irregolarità (come 
la mancanza di spazio su disco o la 
presenza di etichette protettive), 
li menu di secondo livello corrisponden- 


Segulto listato T.K. 

{ 5 SPAZI}{ 5 SIN}{RED}"; :INPUTCD:IF 
CD<10RCD>ATHEN2290 

2300 FORJ0=CDTOA-1 :FORJ1-0TO4:EL$(J0,J1)- 
EL$(J0+1,Jl):NEXT 

2310 FORJ1=0TO23:EL(J 0,J1)=EL( J0+1,Jl) : NE 
XT:NEXT 

2320 FORJ0=ATO30:FORJ1= 0TO4:EL$(J0,J1) 

: NEXT 

2330 FORJl=0TO23:EL(J0 f Jl)=0:NEXT:NEXT:A» 
A-1 

2340 PRINTTAB(3)"{BLK}ALTRI (S/N)":GOSUB7 
20 

2350 GETR$ : IFR$=" "OR (R$<>"S"ANDR$<>"N" ) TH 
EN2350 

2360 IFR$ = " S "THEN2220 
2370 RETURN 

2380 F5= 0 :PRINT"{CLR}"W$(1)TAB(11 ) "(RED) 
AGGIORNAMENTO DATI(BLK)" 

2390 PRINTWS(5)TAB(3)"(RVS)(RED)1(OFF) 
{BLK} - TEMPO IN PROVA" 

2400 PRINTW8(7)TAB(3)"{RVS}{RED}2{OFF} 
{BLK} - INDICE DI RENDIMENTO" 

2410 PRINTW5(9)TAB(3)"{RVS}{RED}3{OFF} 
{BLK} - TIPO DI PNEUMATICI" 

2420 PRINTW$(Tl)TAB(3)"{RVS}{RED}4{OFF} 
{BLK} - PESO PILOTA" 

2430 PRINTW5(T3)TAB(3)"{RVS}{RED}5{OFF} 
{BLK} - PESO VETTURA" 

2440 PRINTW?(T5)TAB(3)"{RVS}{RED}6{OFF} 
{BLK} - PUNTI OTTENUTI" 

2450 PRINTW?(T7)TAB(3)"{RVS}{RED}7{OFF} 
{BLK} - COLORI DEL PILOTA" 

2460 PRINTWS(19)TAB(3)"{RVS}{RED}8{OFF} 
{BLK} - NUMERO DI GARA" 

2470 PRINTW5(21)TAB(3)" {RVS }{RED}9{OFF} 

{BLK} - NOME PI IX3TA, " : PRINTTAB ( 7 ) "NO 
ME VETTURA" 

2480 PRINTWS(23)TAB(3)"{RED}{RVS}0{OFF} 
{BLK} - FINE" 

2490 GOSUB720 

2500 GETA$:IFA$=""ORPEEK(203)=lORPEEK(203 
)“64THEN2500 
2510 AA=VAL( A$ ) +1 
2520 IFAA<1ORAA>10THEN2500 
2530 ONAAGOSUB2560,2570,2620,2670,2710,27 


20,2760,2770,4170,4180 
2540 IFF5=1THENRETURN 
2550 GOTO2380 
2560 F5=l: RETURN 

2570 FORI=1TOA:GOSUB4400:GOSUB2730:FORJ»1 
TO3:E$(J)»STR$(EL(I,18+J)):NEXT 
2580 F0RJ=2T03:E$(J)»RIGHT$(E$(J),LEN (E$ ( 
J))-1):E$(J)»RIGHT$("000"+E$(J),J):N 
EXT 

2590 PRINTW$(9)TAB(3)"TEMPO:{BLU}"E$(1)"' 
"E$(2)CHR$(34)E$(T):GOSUB3160 
2600 IFRI$="S"THEN:W»13:GOSUB4060 
2610 PRINT"{BLK}":NEXT:RETURN 
2620 IJ=9:LI»1000:LS»2500:GOSUB2990: RETUR 
N 

2630 GOSUB3090 

2640 PRINTWS(W+4)TAB(3)"{BLK}"HG$":{RED} 

{ 10 SPAZI}{ 10 SIN}";:INPUTEL(I,IJ) 

2650 IFEL(I,IJ)<LIOREL(I,IJ)>LSTHEN2640 
2660 RETURN 

2670 FORI=lTOA:GOSUB4420:GOSUB2730:GOSUB3 
120 :PRINTW?(9)TAB(3)"{BLK}PNEUMATICI 
{BLU}"TP$ 

2680 GOSUB3160 :IFRI$-"N"THEN2700 
2690 W=15:GOSUB4130 
2700 NEXT:RETURN 

2710 IJ=15:LI = 50:LS»90:GOSUB2990: RETURN 
2720 IJ=16:LI = 540:LS = 9e9:GOSUB 2 9 9 0 : RETURN 

2730 Al=CN(EL(1,13)):A2»NC(EL(I,14)):PRIN 
TW$(3)TAB(3)CHR$(Al)CHR$(A2); 

2740 PRINTEL9(1,1)"{OFF}":PRINTWS(5)TAB(3 
)CHR$(A1)CHR$(A2)EL$(1,2)"{OFF}{RED} 
N@{BLK}"EL(1,4) 

2750 RETURN 

2760 IJ=23: LI = 0:LS-9E9:GOSUB2990:RETURN 
2770 FORI = 1TOA:GOSUB44 60 :GOSUB27 30 :GOSUB3 
200:GOSUB3160 :IFRI$ = "N"THEN2820 
2780 W=15:GOSUB3960 

2790 IFRN<0ORRN>lORRN<>INT(RN)THEN2780 
2800 EL(I,13)=RN:GOSUB4460:GOSUB2730:GOSU 
B3200:GOSUB3160 :IFRI$ = "N"THEN2820 
2810 W=14:GOSUB4000 
2820 NEXT:RETURN 

2830 FORI = 1TOA:GOSUB4500 :GOSUB2730:GOSUB3 
160 :IFRI$ = "N"THEN2860 
2840 PRINTWS(15)TAB(3)"{BLK}NOME PILOTA ( 
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Grand Prix 


COMMODORE 64 


Seguito listato T.K. 


MAX. 15 CARATTERI){RED}":PRINTTAB(3) 
; :INPUTTl$ 

2850 EL$(1,1)=LEFT$(Tl$+"{ 16 SPAZI}",15) 

2860 NEXT:RETURN 

2870 FORI=1TOA:GOSUB4510 

2880 Al=CN(EL(1,13)):A2=NC(EL(1,1 4)):PRIN 
TW$ (3)TAB(3)CHR$(AÌ)CHR$(A2); 

2890 PRINTEL?(1,1)"{OFF}":PRINTWS(5)TAB(3 
)CHR$(Al)CHR$(A2)EL$(I,3)"{OFF}{RED} 
N@{BLK}"EL(1,4) 

2900 GOSUB3160 :IFRI$ = "N"THEN2940 
2910 PRINTW$(15)TAB(3)"{BLK}NOME PILOTA ( 
MAX. 8 CARATTERI){RED}" 

2920 PRINTTAB(3)"{BLKjPER LA TABELLA DI S 
EGNALAZIONE{RED}" 

2930 PRINTTAB(3)"{RED}"; :INPUTTl$:EL$(1,3 
)=LEFT$(Tl$+"{ 8 SPAZI}",8) 

2940 NEXT:RETURN 

2950 FORI=1TOA:GOSUB4520:GOSUB2730:GOSUB3 
160 :IFRI$ = "N"THEN2980 
2960 PRINTW?(15)TAB(3)"{BLK}NOME VETTURA 
(MAX. 21 CARATTERI){REDT":PRINTTAB(3 
); :INPUTTl$ 

2970 EL$(1,2)=LEFT$(Tl$+"{ 16 SPAZI}",21) 

2980 NEXT:RETURN 
2990 RI$ = "": FORI = 1TOA 

3000 GOSUB3040:GOSUB2730:PRINTWS(9)TAB(3) 
HG$":{BLU}"EL(I,IJ)"{BLK}"GH$ 

3010 GOSUB3160:IFRI$="N"THEN3030 
3020 W=15:GOSUB2630 
3030 NEXT:RETURN 

3040 IFI J = 9THENHG$ = " J^NDICE DI RENDIMENTO" 

:GH$ = "M/L.":GOSUB4410 : RETURN 
3050 IFIJ=15THENHG$="PESO PILOTA":GH$="KG 
.":GOSUB4440: RETURN 

3060 IFIJ=16THENHG$="PESO VETTURA":GH$="K 
G.":GOSUB4 4 30 : RETURN 

3070 IFIJ=23THENHG$="PUNTI":GH$="":GOSUB4 
450:RETURN 
3080 RETURN 

3090 IFLI>=0THENPRINTW$(W)TAB(3)"{BLU}LIM 
ITE INFERIORE :{RED}"LI 
3100 IFLS<>9E9THENPRINTW?(W+2)TAB(3) " 

{BLU}LIMITE SUPERIORE :{red}"ls 
3110 RETURN 

3120 ONEL(I,22)GOTO3130,3140,3150 
3130 TP$ = "TENERI": RETURN 
3140 TP$="DURI":RETURN 
3150 TP$ = "'RAIN'" .'RETURN 

3160 PRINTW?(12)TAB(3)"{RED}VUOI CAMBIARE 
IL VALORE ATTUALE" 

3170 GETRI$:IFRI$ = ""THEN31 70 

3180 IFRI$< >"S"ANDRI$< >"N"THEN3170 

3190 RETURN 

3200 CO$=CO$ (EL(1,14)):IFAl=146THENCO$=CO 
$+" SU BIANCO":GOTO3220 


3210 CO$="BIANCO SU "+CO$ 

3220 PRINTWS(9)TAB(3)"{BLK}COLORE:{RED}"C 
HR$(Al)CHR$(A2)CO$:RETURN 
3230 CO$=CO$(TE(1,7)):IFAl=146THENCO$=CO$ 
+" SU BIANCO":GOTO3220 
3240 G0T03210 

3250 G5=0:PRINT"{CLR}"W$(1)TAB(11)"{RED} 
AGGIORNAMENTO DATI{BLK}" 

3260 PRINTW$(5)TAB(3)"{RVS}{RED}1{OFF} 
{BLK} - NOME DEL TEAM" 

3270 PRINTW?(7)TAB(3)"{RVS}{RED}2{OFF} 
{BLK} - COLORI DEL TEAM" 

3280 PRINTW$(?)TAB(3)"{RVS}{RED}3{OFF} 
{BLK} - NUMERI DI GARA CONDUTTORI" 
3290 PRINTW?(Tl)TAB(3)"{RED}{RVS}0{OFF} 
{BLK} - FINE" 

3300 GOSUB720 

3310 GETA$: IFA$ = ""ORPEEK(2 0 3)=1ORPEEK(203 
)=64THEN3310 
3320 AB=VAL(A$)+1 
3330 IFAB<10RAB>4THEN3310 
3340 ONABGOSUB3620,3630,3660,3760 
3350 IFG5=1THENRETURN 
3360 GOTO3250 

3370 IFB=20THENYT=2:GOSUB3890:RETURN 
3380 B=B+1:GOSUB4490:PRINTW?(5)"{BLK}NOME 
NUOVO TEAM{RED}":INPUTTE$(B,l ) 

3390 TE$(B,2)="NON QUALIFICATO": TE(B,2)=0 
: TE(B,4)=0 

3400 TE(B,1)=EL(A,4): TE(B,3)=EL(A,4):TE$( 
B,3)=TE$(B,2) 

3410 GOSUB4490:PRINTW?(5)"{BLK}COLORE NUO 
VO TEAM":W=7:WY=1:GOSUB3960 
3420 I=B:W=9:GOSUB4000:IFUY=1THENRETURN 
3430 PRINTW$(24)TAB(3)"{BLK}ALTRI NUOVI C 
ONCORRENTI(S/N)":GOSUB7lO 
34 40 GETR$: IFR$ = ""OR(R$ < >"S"ANDR$ < >"N")TH 
EN3440 

3450 IFR$="S"THEN3370 
3460 RETURN 

3470 PRINT"{CLR}"TAB(8)"{RED}CANCELLAZION 
E CONCORRENTI{BLK}":CC=1 
3480 CC$=STR$(CC):CC$=RIGHT$("{ 2 SPAZI} 
"+CC$ ,2) : IFCOBTHEN3520 
3490 Al=CN(TE(CC,6)):A2=NC(TE(CC,7)) 

3500 PRINTWS(CC+3)TAB(1)"{BLK}"CC$" "CHR$ 
(Al)CHR$(A2)TE$(CC,1)"{OFF}" 

3510 CC=CC+1:GOTO3480 

3520 PRINTW$(CC+5)TAB(3)"{BLK}QUALE CONCO 
RRENTE DESIDERATE" 

3530 PRINTW?(CC+6)TAB(3)"{BLK}ELIMINARE 

{ 5 SPAZI}{ 5 SIN}{RED}"; :INPUTCD:IF 
CD<lORCD>BTHEN3530 

3540 FORJO=CDTOB-1 :FORJ1= OTO3:TE$(J0, Jl ) = 
TE$(J0+1,Jl):NEXT 

3550 FORJl=0TO7: TE(J0,Jl)=TE(J0+1,Jl) :NEX 
T:NEXT 

3560 FORJ0=BTO20:FORJl=OTO3:TE$(J0,Jl)=" n 
: NEXT 

3570 FORJ1=0TO7: TE(J0,Jl)=0 :NEXT:NEXT:B=B 
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te all'opzione di lettura dei dati presen¬ 
ta, rispetto alla precedente, due voci in 
meno. Oltre alla lettura da nastro o da 
disco, consente la sola visualizzazione 
della directory del disco, per reperire il 
nome di eventuali vecchi file. 

L'opzione di correzione dei dati pre¬ 
senta un menu di secondo livello conte¬ 
nente più voci, che consentono di sce¬ 
gliere tra l'aggiornamento dei dati ca¬ 
ratteristici dei singoli piloti, l'inserimento 


dei dati di nuovi conduttori o la cancel¬ 
lazione dal file dei dati di conduttori 
ritiratisi dal Campionato del Mondo, 
l'aggiornamento dei dati dei singoli 
team partecipanti al campionato e l’eli¬ 
minazione di quei team che “saltino" la 
gara che si desidera simulare. Notate 
come non sia prevista una voce che 
consenta l'inserimento di nuovi team. 
All’atto, infatti, dell'iscrizione di nuovi pi¬ 
loti, il programma provvede a chiedere 


se si desidera inserire il nuovo condut¬ 
tore in uno dei team pre-esistenti od in 
un team del tutto nuovo, nel qual caso il 
calcolatore si premurerà di richiedere 
l'inserimento dei dati che lo caratteriz¬ 
zano. 

L’opzione di aggiornamento dati con¬ 
sente di disporre di un ulteriore menu di 
terzo livello che permette di aggiornare i 
dati dei singoli piloti dal tempo in prova, 
ai punti ottenuti, ai colori della vettura, 


Seguito listato T.K. 

-1 

3580 PRINTTAB(3)"{BLK}ALTRI (S/N)":GOSUB7 
20 

3590 GETRS:IFR$=""OR(R$<>"S"ANDR$<>"N")TH 
EN3590 

3600 IFR$="S"THEN3470 
36)0 RETORN 
3620 G5=l:RETURN 

3630 FORI=)TOB:GOSUB4370:GOSUB3850:GOSUB3 
160 :IFRI$="N"THEN3650 
3640 PRINTWS(15)TAB(3)"{BLK}NOME TEAM 
{RED}":PRINTTAB(3); :INPUTTES(1,1) 
3650 NEXT:RETURN 

3660 FORI = 1TOB:GOSUB4380:GOSUB3850:GOSUB3 
230:GOSUB3160 :IFRI$ = "N"THEN3750 
3670 PRINTWS(15)TAB(3)"NORMALE (0) O ’REV 
ERSE' (1){ 5 SPAZITI 5 SIN}"; :INPUTR 
N 

3680 IFRN<0ORRN>lORRN<>INT(RN)THEN3680 
3690 TE(I,6)=RN:GOSUB4380:GOSUB3850:GOSUB 
3230:GOSUB3160 :IFRI$="N"THEN3750 
3700 FOROC=OTOl-.FORCO-0TO7: IC “00*8+00: ICS 
=*STR$ (IO) : IC$=RIGHT$ ( ICS,2) 

3710 PRINTWS(CO+14)"{RVS}{RED}"TAB(1+20*0 
C)ICS"(OFF){BLK} - "CHRS(NO(IO))CO$( 
IO):NEXT:NEXT 

3720 PRINTWS(23)TAB(3)"{BLKjCOLORE (0-15) 
:{ 7 SPAZI}{ 7 SINHREDT"; :INPUTOO 
3730 IFCO<OORCO>150RCO<>INT(CO)THEN3720 
3740 TE(1,7)“CO 
3750 NEXT:RETURN 

3760 FORI=1TOB:GOSUB4390:GOSUB3850:FORJ=1 
T02:IFTE(I,J)“0THEN3780 
3770 II=TE(I,J+2):GOSUB3870 
3780 NEXT:GOSUB3160:IFRI$="N"THEN3840 
3790 FORJ = 1TO2:IFTE(I,J)=0THEN3830 
3800 PRINTWS(13+J*2)TAB(3)"{BLKjNUMERO DI 
GARA DEL{RED}"J"@{BLK} PILOTA 
{ 8 SPAZI}{ 8 SIN}{RED}"; 

381 0 INPUTNG: IFNG<OORNGOINT(NG)ORNG>99TH 
EN3800 

3820 TE(I,J)=NG 

3830 NEXT 

3840 NEXT:RETURN 

3850 Al=CN(TE(1,6)):A2-NC(TE(I,7)) 

3860 PRINTWS(3)TAB(3)CHRS(Al)CHR$(A2)TE$( 


1,1)"{OFF}": RETURN 

3870 PRINTWS(1+J*4)TAB(3)"{BLKjNUMERO DI 
GARA DELLA{RED}" 

3880 PRINTWS(3+J*4)TAB(3)J"£{BLK} GUIDA: 

{BLU}"TE(I,J): RETURN 

3890 PRINTWS(23)TAB(3)"{RED}NON E' POSSIB 
ILE INSERIRE ALTRI":IFYT=2THEN3910 
3900 PRINTWS(24)TAB(3)"CONDUTTORI.":GOT07 
60 

3910 PRINTWS(24)TAB(3)"CONCORRENTIGOTO 
760 

3920 FORHJ=1TOA-1 :IFNG=EL(H J,4)THENTR= 1 
3930 NEXT:RETURN 

3940 PRINTWS(23)TAB(3)"{RED}NUMERO GIÀ' U 
TILIZZATO DA ALTRO" 

3950 PRINTWS(24)TAB(3)"CONDUTTORE.";GOTO7 
60 

3960 PRINTWS(W)TAB(3)"NORMALE (0) O 'REVE 
RSE 1 (1){ 5 SPAZlJ{ 5 SIN}"; :INPUTRN 

3970 IFRN<OORRN>lORRNOINT(RN) THEN3960 
3980 IFWY=1THENTE(B,6)=RN:RETURN 
3990 EL(A,13)=RN:RETURN 

4000 FOROC = OTOl:FORCO = 0TO7:IC=OC*8+CO: ICS 
=STR$(IC):IC$=RIGHT$(ICS,2) 

4010 PRINTWS(CO+W)"{RVS}{RED}"TAB(1+20*OC 
)ICS"{OFF}{BLK} - "CHRS(NC(IC))CO$(I 
C):NEXT:NEXT 

4020 PRINTWS(W+9)TAB(3)"{BLKjCOLORE (0-15 
):{ 7 SPAZI}{ 7 SIN}{REDI"; :INPUTCO 
4030 IFCO<OORCO>150RCO<>INT(CO)THEN4020 
4040 IFWY=1THENTE(1,7)=CO:RETURN 
4050 EL(1,14)=CO:RETURN 
4060 FORJ=ITO3 

4070 PRINT"{BLK}"WS(W+J)TAB(3)CH$(J)" 

{RED}{ 13 SPAZI}{ 13 SIN}"TAB(18); : I 
NPUTEL 

4080 IFJ = 2ANDEL>59THEN4070 
4090 IFJ“3ANDEL>999THEN4070 
4100 IFELOINT (EL) THEN40 70 
4110 IFEL<0THEN4070 
4120 EL(1,18+J)=EL:NEXT:RETURN 
4130 PRINTWS(W)TAB(3)"{BLK}PNEUMATICI TEN 
ERI (0), DURI (1)" 

4140 PRINTWS(W+2)TAB(3)"{BLK}0 ’RAIN' (2) 

{RED}{ 4 SPAZI}{ 4 SIN}"; :INPUTPN:IF 
PN<0ORPN>2THEN4140 
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Seguilo listato T.K. 

4150 EL(I,22)=PN+1:EL(I,17)-PN+1:EL(1,18) 
= PN+1 

4160 RETURN 

4170 GOSUB4310:RETURN 

4180 F6=0 

4190 PRINT"{CLR}"TAB(2)"{RED}NOME DEL PIL 
. OTA, NOME DELLA VETTURA{BLK}" 

4200 PRINTW$(5)TAB(3)"{RVS}{RED}1{BLK} 
{OFF} - NOME PILOTA" 

4210 PRINTWS(7)TAB(3)"{RVS}{RED}2{BLK} 
{OFF} - NOME PILOTA ABBREVIATO" 

4220 PRINTTAB(7)"(PER SEGNALAZIONI)" 

4230 PRINTW?(9)TAB(3)"{RVS}{RED}3{BLK} 
{OFF} - NOME VETTURA" 

4240 PRINTW$(Tl)TAB(3)"{RVS}{RED}0{BLK} 
{OFF} - FINE":GOSUB720 
4250 GETM$:IFM$=""ORPEEK(203)«lORPEEK(203 
)=64THEN4250 

4260 M=VAL(M$)+1:IFM<10RM>4THEN4250 
4270 ONMGOSUB4300,2830,2870,2950 
4280 IFF6=1THENRETURN 
4290 GOTO4190 
4300 F6=1:RETURN 

4310 FORI=1TOA:GOSUB4470:GOSUB2730:GOSUB3 
160 :IFRI $ ** " N" THEN 4 3 6 0 
4320 PRINTWS(15)"{ 3 DES}{BLK}NUMERO DI G 
ARA (<=99){RED}{ 5 SPAZI}! 5 SIN}";: 
INPUTNG:IFNG=0THEN4350 
4330 TR=0:GOSUB3920:IFTR=1THENGOSUB3940:G 
OTO4320 

4340 IFNG<OORNG>990RNGOINT (NG) THEN43 20 
4350 EL(1,4)=NG 
4360 NEXT:RETURN 

4370 PRINT"{CLR}{RED}"TAB(13)"NOME DEL TE 
AM {BLK}":RETURN 

4380 PRINT"{CLR}{RED}"TAB(12)"COLORI DEL 
TEAM{BLK}": RETURN 

4390 PRINT"{CLR}{RED}"TAB(12)"NUMERI DI G 
ARA{BLK}": RETURN 

4400 PRINT" {CLR} {RED} "TAB ( 1 2)-"TEMPO IN PR 
OVA{BLK}":RETURN 

4410 PRINT"{CLR}{RED}"TAB(10)"I_NDICE DI R 
ENDIMENTO{BLK}": RETURN 
4420 PRINT"{CLR}{RED}"TAB(1 1) "TIPO DI PNE 
UMATICI{BLK}": RETURN 

4430 PRINT"{CLR}{RED}"TAB(14)"PESO VETTUR 
A{BLK}":RETURN 

4440 PRINT"{CLR}{RED}"TAB(14)"PESO PILOTA 
{BLK}": RETURN 

4450 PRINT"{CLR}{RED}"TAB(13)"PUNTI OTTEN 
UTI{BLK}": RETURN 

4460 PRINT"{CLR}{RED}"TAB(11)"COLORI DEL 
PILOTA{BLK}": RETURN 

4470 PRINT"{CLR}{RED}"TAB(13)"NUMERO DI G 
ARA{BLK}":RETURN 

4480 PRINT"{CLR}{RED}"TAB(9)"INSERIMENTO 
CONDUTTORI{BLK}": RETURN 
4490 PRINT"{CLR}{RED}"TAB(9)"INSERIMENTO 
CONCORRENTI{BLK}": RETURN 


4500 PRINT"{CLR}{RED}"TAB(13)"NOME DEL PI 
LOTA{BLK}": RETURN 

4510 PRINT"{CLR}{RED}"TAB(6)"NOME DEL PIL 
OTA (ABBREVIATO){BLK}":RETURN 
4520 PRINT"{CLR}{RED}"TAB(11)"NOME DELLA 
VETTURA{BLK}": RETURN 

4530 PRINT"{CLR}"TAB(15)"{RED}DIRECTORY": 

PRINTW$(3); 

4540 OPENl,8,0,"$0" 

4550 GET#1,A$,B$ 

4560 GETll,A$,B$ 

4570 GET#1,A$,B$ 

4580 C=0 

4590 IF A$< >"" THEN C=ASC(A$) 

4600 IF B$<>"" THEN C=C+ASC(B$)* 256 
4610 PRINT"{RED}"MID$(STR$(C),2);TAB(3); " 
{BLK}"; 

4620 GETll,B$:IF STOO THEN 4710 
4630 IF B$< >CHR$(34) THEN 4620 
4640 GETll,B$:IF B$OCHR$ (34) THEN PRINTB$ 
; :GOTO4640 

4650 GETll,B$:IF B$=CHR$(32) THEN 4650 
4660 PRINT TAB(18);:C$="" 

4670 C$=C$+B$:GETll,B$:IF B$<>"" THEN 46 
70 

4680 PRINT"{RED}"LEFT$(C$,3) 

4700 IF ST=0 THEN 4560 

4710 PRINT"{BLK} BLOCKS FREE" 

4720 CLOSEl:GOSUB4860:GOSUB4760 
4750 RETURN 

4760 PRINTW$(24)TAB(3)"{RED}PREMI ' RETUR 
N' PER CONTINUARE" 

4770 IFPEEK(197)<>1THEN4770 
4780 RETURN 

4790 PRINTW$(16)TAB(3)"{BLK}NOME DEL DISC 
O{RED}":PRINTTAB(3); :INPUTNM$ 

4800 PRINTWS (1 8) TAB (3) " {BLK} INDENTIFICATOR 
E{RED}"; :INPUTID 

4810 ID$=STR$(ID):MN$="N0:"+NM$+","+RIGHT 
$(ID$,LEN (ID$)-1) 

4820 PRINTl15,MN$:GOSUB4860: RETURN 

4830 PRINTWS(16)TAB(3)"{BLK}NOME DEL FILE 

CHE SI DESIDERA" 

4840 PRINTTAB(3)"CANCELLARE{RED}"; :INPUTN 
F$: NFS = "SO :"+NF$ 

4850 PRINTl15,NF$:GOSUB4860: RETURN 
4860 IFND$»"N"THENRETURN 

4870 INPUT!15,A$,B$,C$,D$:SP=VAL(A$):IFSP 
=0THENRETURN 

4880 PRINTWS(20)TAB(3)"{RED}"A$"{BLK}, 

{RED}"B$"{BLK},{RED}"C$"{BLK},{RED}" 
D$:GOSUB4760 
4890 RETURN 


eccetera. 

Un’unica eccezione è prevista per i da¬ 
ti anagrafici, cioè il cognome del pilota, 
il tipo della vettura e la scritta abbrevia¬ 
ta che compare sul tabellone di segna¬ 
lazione dai box. In questo caso, pre- 
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mendo il tasto "9" si accede ad un me¬ 
nu di quarto livello (!), che consente di 
scegliere tra le voci suddette. 

Per ciascuna delle voci presentate dal 
menu viene riproposto, oltre ai dati che 
caratterizzano il singolo pilota, il valore 
attuale della singola voce e viene quindi 
offerta la possibilità di modificarne il va¬ 
lore o di passare al pilota successivo 
nell'elenco iscritti. In questo modo non è 
necessario specificare di quale pilota si 
desidera aggiornare i dati, ma è suffi¬ 
ciente scorrere l'intero elenco, premen¬ 
do “s" se si desidera apportare modifi¬ 
che, o "n" se si vuole proseguire. Ad 
operazioni terminate si rientra nel menu 
di livello immediatamente superiore a 
quello in cui ci si trova. 

Nel caso in cui si modifichino dei dati il 
cui valore non sia "libero”, ma legato a 
dei limiti (“logici" o di regolamento), tali 
limiti vengono indicati e viene, natural¬ 
mente, eseguito un controllo sul dato in 
ingresso. 

Analoghi esafni vengono compiuti sul¬ 


l’eventuale inserimento di nuovi con¬ 
duttori. 

Nel caso del colore attribuito a ciascun 
pilota, è possibile scegliere non solo u- 
no dei quindici colori visibili sul fondo 
scelto (grigio-chiaro), ma anche se si 
desidera che il nome del pilota e della 
vettura compaiano in formato normale 
o inverso. 

£ necessario fare attenzione alla voce 
riguardante il numero di gara che con¬ 
traddistingue ciascun conduttore. Dal 
momento che, nel corso della stagione, 
capita che un pilota si ritiri, o per cause 
fisiche o perché viene “dimissionato" 
dal proprio team (è il caso di René Ar- 
noux e della Ferrari), può capitare, se il 
pilota in questione ha fatto segnare dei 
punti, che il suo nome debba regolar¬ 
mente comparire nella classifica mo¬ 
strata prima e dopo ciascuna simula¬ 
zione, ma non prendere parte alla simu¬ 
lazione stessa. Dato, inoltre, che il nu¬ 
mero è caratteristico non del pilota, ma 
della vettura, si è fatto ricorso ad un 


artificio: i piloti la cui iscrizione viene 
“ritirata" nel corso dell’anno, vanno in¬ 
seriti in team separati e, come numero di 
gara, va specificato lo “0". In questo 
caso essi compariranno correttamente 
nella classifica del Campionato del 
Mondo (se hanno totalizzato dei punti, 
piazzandosi nei primi sei) ma non inter¬ 
feriranno con la simulazione dei gran 
premi successivi, a patto di indicare un 
tempo in prova, fittizio, superiore all’ulti¬ 
mo dei piloti qualificati (ad esempio, 
9'59"999). In tutti gli altri casi l'aggior¬ 
namento del numero di gara che carat¬ 
terizza un pilota è subordinato al fatto 
che tale numero non sia già attribuito 
ad un altro pilota (nel caso ipotetico in 
cui due piloti si scambino i numeri, sarà 
necessario ricorrere ad una operazione 
in più attribuendo temporaneamente, 
ad uno dei due, un numero inesistente, 
e quindi correggendo in due riprese i 
numeri di gara dei due piloti). 

Un’ultima precisazione per quel che 
riguarda la cancellazione di conduttori 
o concorrenti dal data base. Ciascun 
elemento delle due matrici è individuato 
dal numero ordinale corrispondente, 
che non coincide necessariamente con 
il numero di gara corrispondente (per 
ragioni scaramantiche nessuna vettura 
di Formula 1 porta il numero 13; inoltre 
per alcuni team che schierano una sola 
vettura è stato riservato un numero di 
gara consecutivo al primo per una e- 
ventuale seconda iscrizione nel corso 
della stagione). Fate quindi attenzione 
ai numeri che compaiono a fianco del 
pilota o del team che si desidera elimi¬ 
nare, in modo da non commettere erro¬ 
ri. Inoltre, dato che l’eliminazione di un 
elemento della matrice comporta un 
suo successivo compattamento - in mo¬ 
do che i dati risultino adiacenti - è con¬ 
sigliabile, nel caso in cui si dovessero 
cancellare più elementi da una stessa 
matrice, cominciare da quelli corrispon¬ 
denti a numeri ordinali più alti, in modo 
da economizzare sul tempo di compat¬ 
tamento. Nel caso dei concorrenti (cioè 
le varie squadre iscritte al mondiale), 
infine, fate attenzione ad eliminare quei 
team e solo quei team che non abbiano 
più conduttori iscritti nell'elenco dei pi¬ 
loti. ■ 


Listato 4 - 
Il programma 

FILE: TOOL PAG. 1 Tool-Kit. 

10 IFSE= OTHENPOKE53281 ,15:POKE53280, 1 5: PR 
INTCHR$(14) 

20 IFSE=OTHENPRINT"(CLR}{ 12 GIU'}"TAB(10 
)"(BLK)ATTENDERE PREGO ...":GOSUBl10 :S 
E° 1 

30 IFSE=1THENSE-2 : LOAD"1/G.P.",8,1 

40 IFSE=2THENSE=3:POKE49155,8:POKE49157,0 
:POKE49158,128:POKE49160,0 

50 IFSE=3THENSE=4:POKE49161,232:SYS49152: 

LOAD"0/G.P.",8,1 

60 IFSE=4THENSE=5:POKE49155,8:POKE49157,0 
:POKE49158,128:POKE49160,0 

70 POKE49161 ,224 :SYS49152:GOSUBl40:GOT019 
0 

110 FORI = 491 52T0491 74 : READA:POKEI,A:NEXT: 

RETURN 

120 DATAI 60,0, 162,8,185,0,1 2 8,153,0,0,200 
,208,247,238,6,192,238,9,192 

130 DATA202,208,238,96 

140 POKE56578,PEEK(56578)OR3:POKE56576,PE 
EK(56576)AND252 

150 POKE53272,40:POKE648,200:PRINTCHR$(14 
7) 

180 PRINT"(CLR){ 13 GIU'}"TAB(10)"ATTENDE 
RE PREGO ..." : RETURN 

19 0 POKE45,0 :POKE46,96:POKE47,0:POKE48,10 
0 

200 POKE49,0:POKE50, 156:POKE82 8,0:POKE51, 

255:POKE52,159 

210 POKE43,61 :POKE44,3 :POKE829,0:CLR:LOAD 
" T. K. " , 8 
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P er la descrizione delle caratte¬ 
ristiche e dei problemi tecnici 
legati alla progettazione e 
realizzazione di un aeromo¬ 
dello a volo vincolato circolare vi riman¬ 
diamo all'articolo già pubblicato (Per¬ 
sonal Software di Giugno). Desideria¬ 
mo invece soffermarci un momento sul¬ 
le differenze esistenti tra i due program¬ 
mi, differenze solamente formali dovute 
alle diverse caratteristiche dei due com¬ 
puter. 

La versione MSX utilizza gli stessi al- 
gritmi, formule e semplificazioni adotta¬ 
te dal programma per lo Spectrum, per 
cui il programma si snoderà attraverso 
la scelta della cilindrata del motore e 
degli allungamenti, per giungere al di¬ 
mensionamento delle superfici e della 
fusoliera del modello. 

Non compaiono qui le quattro opzioni 
per la gestione del programma (pagina 
precedente, pagina seguente, abban¬ 
dono e copia): l’unica possibilità è quel¬ 
la di passare da una pagina inferiore a 
una superiore con una semplice pres¬ 
sione di un tasto. 

Per confermare l'input di un dato, ab¬ 
biamo utilizzato la potente istruzione 
Color che consente di variare istanta¬ 
neamente il colore di tutti i caratteri pre¬ 
senti sul video, cosa non possibile utiliz¬ 
zando il BASIC dello Spectrum. 

Vi sono altre numerose differenze, nei 
BASIC delle due macchine, che hanno 
portato a modifiche rilevanti sulla ge¬ 
stione del programma. L’impossibilità di 
gestire contemporaneamente la grafica 
e il testo, se non ricorrendo alla apertu¬ 
ra di un file, ha richiesto qualche com¬ 
promesso per quanto riguarda i disegni 
quotati del modello, ma il risultato sem¬ 
bra più che soddisfacente grazie ai nu¬ 
merosissimi caratteri grafici predefiniti 
presenti nelle macchine MSX. In com¬ 
penso nel programma sono stati inseriti 
numerosi brani e ''stacchi" musicali, 
per sottolineare le varie fasi del proget¬ 
to, realizzati sfruttando il potente lin¬ 
guaggio musicale del BASIC MSX. Inol¬ 
tre, data la presenza e la estrema facilità 
dell'uso degli sprite, non sembrava giu¬ 
sto non inserirli nel programma (com¬ 
paiono infatti nella schermata di pre¬ 
sentazione). 

La velocità e la precisione dei calcoli 
sono un punto a vantaggio degli MSX. 
Per questo, il programma risulta velo¬ 
cissimo e la presenza dell'istruzione U- 
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Listalo 1 • Il programma per ogni computar MSX. 

10 rem 


2e REM 6 e 
30 REM è Progetto V.V.C. 0 
40 REM 6 0 
50 REM 0 Ver.MSX 1985 by 0 
60 REM 6 0 
70 REM 6 P.FERRAMI 0 
80 REM 0 0 


90 REM 6000000000000000000 
100 REM 

110 REM PRESENTAZIONE PROGRAMMA 
120 REM 

130 SCREEN2,3:C0L0R15,l,i 

140 OPEN "6RP:"AS1 

150 KEV OFF :GOSUB 5100 

160 PRESET(83,50) PRlNTI1,*COMPUTER “ 

170 PSET< 20,88 ) , 6 

180 I>RAW"d50rl0u40fl5el5cl48rl0u50110gl5h 
15110“ :BEEP 

198 PAINT<21,120>,6:BEEP 
200 PSET(90,130),5 

210 DRAU"r50u30140ul0r40ui0150d30r40di01 
4 0 d10“:BEEP 

228 PAINTÌ91,128),5 BEEP 
230 PSET <160, 130 ) ,11 

240 DRAM"rl0el5T15rl0ul0hl5el5ul0110gl5h 
15110dl0-fl5gl5dl0" BEEP 

250 PAINT(161,129),11 :PLAY“01L1CL1CL1CL1 
CL1CL2C”,“02L1EL1EL1EL1EL1EL2E* 

260 FÙRA=-32TO90:PUT SPRITE16,<A,A>,12,0 
:F0RP = 1T05:NEXTP 

270 PUT SPR1TE18,C205-A.9O),15,1PUT SPR 

ITE1, (170-A,25),15,1 

290 PUT SPRITE10,(12-A,15),15,1 

290 PUT SPRITE11,<50-A,90>,15,1 :NEXTA 

300 F0RA=91T0255 PUT SPRITE16,<A,90),12, 

0 :F0RP = 1T05:NEXTP 

310 PUT SPRITE18,<205-A,90>,15,1 PUT SPR 

ITE1,(170-A,25),15,1 

320 PUT SPRITE10,(12-A,15>,15,1 

330 PUT SPRITE11,(50-A.90) ,15,1:NEXTA 

340 6ÙTO490 

350 REM 

360 REM PRIMO SOTTOPROGRAMMA MUSICALE 
370 REM 

330 PLAY"t200oól8cegaa+age","T200O318CEG 
A A + A 6 E","T2000518cr8or3cr8cr8” 

390 PLAY"t280o518cegaa+age*,"T200O3I8CEG 
A A + AG E “,"T2000318cr8cr8cr8cr8“ 

40O PLAY"t200o618fao7cdd+dco6a*,"T200O31 
8Tao4cdd + dco3a",*T200O518-fr8Tr8fr8-fr8" 
410 PLAV"t200o618cegaa+age*,"T200O318CEG 
A A + A 6 E “, “T200O5I8cr8cr8cr8cr8" 

420 PLAV"gboódo5b","gbo4do3b","18gr8gr8" 
430 PLAY“FEo6Co5A“, "FEo4Co3A“,"18Fr8Fr8" 
440 PLAV"tl00o618cegaa+","T100O318CEGAA* 

" , “ T100O518cr8cr8cr8“ PLAVR803L1C", “R80 
3 L1E","R803L1G" 

450 REM 


460 REM SCHERMATA PRESENTA2I ONE 
470 REM 
480 RETURN 

490 SCREEN1 C0L0R7,1,1 FORA«=0T 019 PR I NT 

" NNNMNMNNMNMNNM NEXT 
500 LOCATE 9,8 PRINT" “L0CATE9,9 

PRINT” " LOCATE 9,10■PRI NT“PRESE 

NT A" 

510 L0CATE9, 7 :PRI NT“ "LOCATE 9,1 

1PRINT" ":GOSUB5330 CLS 

520 REM 

530 REM TITOLO PROGRAMMA 
540 REM 

550 LOCATE0,O PRINT" ,- 

- - ^ N 

560 LOCATE0,19 PRINT”'- 


570 LOCATEl,1 :PRINT'Progetto di un aerom 
o d e 11 o " 

580 L0CATEi,2PRINT"Per Volo Vincolato C 
i r c o 1 a r e " 

590 locate0,3 print' j mmmmmmsmsm 

600 F0RX*1T09 

610 LOCATEX,7 :PRINT" ■" 

620 LOCATEX, 8 : PR I NT “ ■. 

630 LOCATEX,9-PR1NT" 

640 LOCATEX,11PRINT" 0" 

650 NEXT X 

660 L0CATEl,16:PRINT“di Paolo Ferrami* 
670 F0RX=1T02000 HEXTX 
680 C0L0R3.1.1 L0CATE1,15 
690 PRINT"Ùuesto programma permette di". 
L0CATE116 ; PR INT " progettare un modello 
VVC" LOCATE1,17 PRINT"CVolo Vincolato Ci 
rodare] " 

700 L0CATE1,18 :PRINT" Ma 1 a 3.5 oc 

4“ 

710 IF PLAV(0)»-1THENGOTO710 
720 REM 

730 REM INIZIO PROGRAMMA 
740 REM 

750 PLAV“T10GO2L1CL1C“,"T100O3L1EL1E": C 
LS:SCREEN2:C0L0R13,12,12 PSET<127,95>F0 
RO=1TO140 STEP4 

760 A* = "L"+STR*<Q> + "t'"+STR*<Q + l> + “R ,, + STR 
$(Q + 2)t-"U“ + STR$>'Q + 3) : BRAW"S4XA$; " 

770 NEXTQFORO=1TO100:NEXT 
780 REM 

790 REM ISTRUZIONI 
800 REM 

810 SCREEN0:COLOR15,1,1 

820 LOCATE0,0.PRINT" i- 


830 LOCATE0,19 PRINT" 


340 L0CATE3,1 PRINT"ISTRUZ1ÙNI PER L'US 
0 * 

850 LOCATE 1,9:PRINT"TI VERRANNO RICHIES 
TI VOLTA " 

860 LOCATE 1,10 :PRI NT"PER VOLTA I PATI N 
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sing ha permesso di dimensionare l'out¬ 
put dei dati senza fare ricorso ai lunghi 
e complessi algoritmi presenti nella ver¬ 
sione per lo Spectrum. 

Non mancano in questo programma i 
disegni eseguiti in alta risoluzione, resi 
ancora più chiari e precisi grazie alla 
possibilità di colorare le figure chiuse e 
ridisegnare sopra le parti colorate sen¬ 
za "sporcare" la parte sottostante (co¬ 
sa che è preclusa al Sinclair). 

Prima di passare all’analisi dettagliata 
del listato, desideriamo precisare che 
non tutte le macchine standard MSX 
hanno all'accensione il medesimo nu¬ 
mero di colonne nel modo testo (Screen 
0 o Screen 1), per cui è probabile che 
facendo girare il programma avvenga 
che la spaziatura non sia corretta, é 
necessario in questo caso che aggiun¬ 
giate all'inizio del programma l’istruzio¬ 


ne Width (n), dove n è il numero di co¬ 
lonne in cui è diviso il video in modo 
testo. 

Anche la musica non è gestita allo 
stesso modo per quanto riguarda la ve¬ 
locità di esecuzione: se volete modifica¬ 
re questa velocità dovrete aumentare o 
diminuire il valore che segue la lettera 
"T” nella prima riga della stringa dell'i¬ 
struzione Play (il valore standard è T 
150). La macchina utilizzata per scrive¬ 
re questo programma è uno Spectravi- 
deo SVI 728, ovviamente standard MSX. 

Spiegazione del listato 

1-330 - Schermata di inizio programma. 
La linea 130 permette di scrivere nella 
pagina grafica utilizzando l'istruzione 
Print#1. La linea 140 manda al sotto¬ 
programma di caricamento degli Sprite 


16 x 16. Utilizzando il comando grafico 
Draw vengono disegnate, nelle linee da 
170 a 230. le lettere della parola “MSX", 
poi colorate ciascuna con Paint. Se¬ 
guono 2 cicli For-Next per muovere lo 
Sprite “aereo" e gli Sprite “nuvole”. 
340-430 - Primo sottoprogramma musi¬ 
cale contenente un motivo eseguito a 
tre voci senza modificare i registri stan¬ 
dard del computer. 

440-500 - Titolo del programma. Tornati 
al modo testo (Screen 1), viene riempito 
lo schermo con uno dei caratteri grafici 
predefiniti dell'MSX. 

510-700 - Continua la presentazione 
pulendo lo schermo e facendo muovere 
un aereo fino al centro del video (linea 
590 e seguenti). Anche questo disegno 
è stato realizzato con i caratteri grafici 
predefiniti. 

710-760 - Inizio programma e stampa 


Seguito listato MSX Progetto aeromodello. 


ECESSAR I " BEEP:FORA=1TO300:NEXT 
870 LOCATE i,ll PRINT-PER PROGETTARE IL 
MODELLO “ FÙRA=1T015 COLORA,1,1:BEEP NE 
XT 

880 LOCATE 3.21 : PR I NT“PER PROSEGUIRE PRE 
III UN TASTO :PLAV"T200O7L2A“, “T200O7L2 
E “ :80SUB380 

890 IF INKEY! = "" THEN GOTO 890 
900 BEEP 
910 REM 

920 REM PAGINA 1 
930 REM 

940 REM DIMENSIONI MOTORE 
950 REM 

960 SCREEN i:C0L0R 3,1,1 

970 LOCATE0,0:PRINT" i- 


980 LOCATE0,19 : PRINT" l - 


990 LÙCATE3,3:PRINT" 



1800 L0CATE3,4 : 

1010 L0CATE3,5 
1020 L0CATE3,6 : 

1030 LOCATE3,7: 

1040 L0CATE3,8:PRINT 
1050 L0CATE3,9 :PRI NT 
1060 L0CATE3,10 
1070 L0CATE3,11 
1080 L0CATE1,14 
L0CATE1,15 :PRINT" " 

1090 INPUT" Centimetri oubi";CC 
1100 IF CC<=0THEN GOTO1080 
1118 COLOR13,1,1 
1120 L0CATE1,16 
1130 PLAY“t200o514ce«o612o“ 


PRINT" 

PRINT" 

PRINT" 

PRINT" 


PRINT" 

PRINT" 

PRI NT"DIMENSIONE MOTORE" 



1140 IF INKEV$ = " " THEN GOTO 1148 
1150 REM 

1160 REM PAGINA 2 
1170 REM 

1180 REM CARATTERISTICHE GENERALI 
1190 REM 

1200 SCREEN 0 : COLOR 13,1,1 

1210 LOCATE0,0 PRINT" i- 

- 1 " 

1220 L0CATE0,19 PRINT" 1 - 


1230 L0CATE7.2.PRINT"DIMENSIONAMENTO" 

1240 LOCATE 3,5 :PRINT“MOTORE. 

. . . .co",CC 

1250 PARA=15*CC*CC:BEEP 

1260 PESO=INT(PARA*250 -1 BEEP 

1270 SUPALA=INTC730 + PARA) :BEEP 

1288 BEEP L0CATE3.7 PRINT“PES0 TOTALE... 

. «r.".PESO 

1290 BE£P:L0CATE3,9PRINT"SUPERFICIE ALA 

RE.orni " ;SUPALA BEEP 

1300 L0CATEl,llPRINT"Sara' presa come c 
ampione un'ala a ":PRINT" pianta rettane 
o 1 a r e " 

1310 L0CATE6.15 PRINT 

1320 L0CATEé,16:PRINT“BHHBBHHBH 

1330 L0CATE6,17 PRINT"BBBaBHHMaHH 

1340 F0RA = 1 T0350 NEXTA 
1350 BEEP 

1360 IF INKE Y$="" THEN GOTO 1360 
1370 REM 

1380 REM PAGINA 3 
1390 REM 

1400 REM SCELTA ALUNGANENTO 


77 





















Seguito Datato MSX Progetto aeromodello. 


1410 REM 

1420 SCREEN0:COLOR9,1,1 
1430 LOCATE0,0PRINT" i- 

-- " 

1440 LOCATE0,19PRINT" L 


1450 LOCATE?,1PRINT"SCELTA ALLUNGAMENTO 
" :L0CATE1,S PRINT"L=(apertura alare/su 
per-ficie":BEEP 

1460 LOCATE 10,7 : PR1NT" 1^—— " 
1470 LOCATE!8,3:PRINT" 

1480 LQCATE18,SPRINT" ———'’ 
1490 L0CATE10,12: PRINT"■■■■■■■■■ 

■l":BEEP _ 

1580 LOCATE10,13:PRINT"BHHBBHHHi 

1510 LOCATE10,14: PRINT mmmm. 

■■H" 

1520 LOCATE 3,8 :PRINT"L = 5":L0CATE3,13 :PR 
INT"L=6":L0CATE3,16:PRINT:BEEP 
1530 INPUT" ALLUNGAMENTO <5 o 6>",LAM 
1540 IF<LAM05)ANMLAH06)THEN GOTO 1520 
1550 BEEP:BEEP 
1560 COLORII,1,1 

1570 IF INKEV$="" THEN GOTO 1570 
1580 REM 

1590 REM PAGINA 4 
1680 REM 

1610 REM DIMENSIONI ALA 
1620 REM 

1630 SCREEN0: CGLGR5,1,1 

1640 LOCATE0,0 PRINT" i- 

^ " 

1650 LOCATE7, SPRINT “DIMENSIONAMENTO ALA 


1668 L0CATE3,4 : PRINT "Superficie alare... 
.cm>";SUPALA:BEEP 

1670 L0CATE3,6:PBINT"A1lunganento. 

.L=";LAM:BEEP 

1680 AL=INT<SQR<LAM* *SUPALA>> 

1690 L0CATE3.8:PRINT"Apertura alare. 

.cu"; AL :BEEP 

1700 C0=SU/AL :U=SU/AL 

1710 L0CATE3,10 :PRI NT“Corda uedia. 

. cu";:PRINTUSING"CO:BEEP 

1720 LOCATE 1,13 :PRI NT"PROF I LO :PI ANO-CON 
VESSO" 

1730 L0CATE1,16:PRINT" _" 

1740 L0CATE1,17 : PR I NT - -- 

1750 L0CATE12,15 :PRINT" C1 ] -> CLARK X 
1760 L0CATE12,17 :PRINT" C 2 3 - > CLARK V 
1770 L0CATE12,19 :PRINT" C3I-> SAINT CVR 
52 

1780 LOCATE1,20:PRINT" " 

1790 INPUT "Vuoi il tipo 1,2,3 o nessuno 
C 01 " ; A 

1800 IF A=1 THEN GOTO 4630 
1810 IF A=2 THEN GOTO 4780 
1820 IF A=3 THEN GOTO 4930 


1830 IF A=0 THEN GOTO 1850 
1840 GOTO 1780 
1850 BEEP 
1860 REM 

1870 REM PAGINA 5 
1880 REM 

1890 REM DISEGNO QUOTATO ALA 
1900 REM 

1910 SCREEN1:C0L0R15,12,12 
1920 CLS: L0CATE8,0 :PRINT" r- 


1930 LOCATE0,28:PRINT" L 


1940 PLAV"T150O5L8EEFGGFEDL4C","T150O4L8 

ER8FR8GFEDL4C","L2CL2GL8C" _ 

*1950 FOR A = 5T09:L0CATE6,A:pRINT"BBHBBB 
■■■■■■" : NEXT A 

1960 L0CATE6,11PRINT" <- 

L0CATE12,12-PRINTAL 

1970 L0CATE4,5:PRINT'V 

1980 L0CATE4,9:PRINT ,,,r " : L0CATE1 , 7 : PR I NT 

USING"#».*#";CO _ 

1990 L0CATE6,17: PRINT "■■■■■■■■■»' 
2000 IF INKEV»=“" THEN GOTO 2000 
2010 PLAVT150O5L8EEF66FEDL4C", "T150O4LS 
ER8FR86FEDL4C","L2CL26L8C" 

2020 REM 

2030 REM PAGINA 6 
2040 REM 

2050 REM DIMENSIONI PIANO DI CODA 
2060 REM 

2070 SCREEN0:C0L0R9 , 1,1 

2080 CLS- LOCATE0,0 :PRINT" i- 

_Il 

—-- 

2090 L0CATE4,2:PRINT"DIMENSIONAMENTO PIA 
NO DI CODA" 

2100 SP=SU*.25 

2110 LOCATE1,6 :PRINT “Superficie piano di 
coda. . erti " ; SP 
2120 PM=INT(SP*.33> 

2130 L0CATE1,8 :PRINT“SuP. stabilizzatore 

.cm 1 “;P M 

2140 FORA=1TO900:NEXTA 

2150 LOCATE11,10 :PRINT"ALLUNGAMENTO"_ 

2160 F0RA = 12T015:L0CATE13, A: PRINT“HBBi 

MH" : NEXTA _ 

2170 F0RA = 17T019 : L0CATE13, A : PRINT "■■■H 

waaamm" ■ nexta 

2180 LÙCATE5,13:PRINT"L=4" 

2190 L0CATE5,18-PRINT"L=5“ 

2200 LOCATE1,20:PRINT" " 

2210 LOCATE5,20:PRINT" " 

2220 INPUT"Allunga«ento ( 4 o 5 ) ";LA 
2230 IF(LA05)AND(LA04)THEN GOTO 2210 
2240 COLOR 7,1,1 

2250 IF INKEV$="" THEN GOTO 2250 
2260 REM 

2270 REM PAGINA 7 
2280 REM 

2290 REM CARATTERISTICHE PIANO DI CODA 
2300 REM 
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Progetto aeromodello per volo vincolato 



delle istruzioni. Le linee da 740 a 760 
disegnano una spirale poligonale, men¬ 
tre dalla linea 770 a 890 vengono stam¬ 
pate le istruzioni. La linea 870 contiene 
un Gosub al sottoprogramma musicale. 
900-1120 - Pagina 1: dimensioni motore. 
Dopo aver disegnato il motore (linee 
970-1050) viene richiesta la cilindrata. 
La linea 1080 controlla che il valore im¬ 
messo non sia minore di 0 e la linea 
1090 cambia il colore della pagina per 
avvertire che il dato è stato accettato 
dal computer. 

1130-1330 - Pagina 2: caratteristiche 
generali del modello. La linea 1220 cal¬ 
cola il parametro utilizzato nel dimen¬ 
sionamento delle superfici del modello. 
Le linee da 1280 a 1300 disegnano la 
vista in pianta dell'ala rettangolare pre¬ 
sa come riferimento. 

1340-1530 - Pagina 3: scelta dell'allun¬ 


gamento alare. Le linee 1420-1470 dise¬ 
gnano le due possibili configurazioni 
dell'ala. La linea 1500 controlla che i 
valori in Input non siano diversi da quelli 
ammissibili. La linea 1520 cambia di 
nuovo il colore della pagina, sempre per 
avvertire l'utilizzatore che i dati sono 
stati accettati dal computer. 

1540-1800 - Pagina 4: dimensioni dell’a¬ 
la. Dopo il calcolo e la stampa dei dati 
riguardanti le dimensioni dell'ala (linee 
1600-1660) viene disegnato un profilo 
piano convesso e il menu dei tipi di pro¬ 
fili disponibili, dopo di che le linee da 
1750 o 1720 invieranno alla subroutine 
di stampa delle coordinate del profilo 
scelto. Queste quattro linee possono 
essere sostituite con una unica istruzio¬ 
ne On-Gosub. 

1810-1950 - Pagina 5: disegno quotato 
dell'ala. Il disegno viene eseguito nel 


modo testo Screen 1 utilizzando i carat¬ 
teri predefiniti; questo si è reso necessa¬ 
rio per una migliore gestione delle quo¬ 
tature sul disegno. 

La vista in pianta viene eseguita con un 
ciclo For-Next alla linea 1890. 

Per evitare la stampa dei decimali oltre il 
centesimo viene utilizzata la istruzione 
Using alla linea 1920. 

1960-2190 - Pagina 6: dimensionamen¬ 
to del piano di coda. Dopo il calcolo e la 
stampa dei dati, vengono anche qui, 
come nell'ala, disegnate le viste in pian¬ 
ta del piano di coda con diversi allunga- 
menti mediante cicli For-Next (2090- 
2100) e viene richiesto il valore deside¬ 
rato. La linea 2160 controlla che il valo¬ 
re impostato non esca dal range consi¬ 
gliato e la linea 2170 fa variare, come al 
solito, il colore della schermata. 
2190-2370 - Pagina 7: caratteristiche del 


Seguito listato MSX Progetto aeromodello. 

2310 SCREEN0CGLOR14,1,1 

2320 C L S ; LOCATE0,0PRINT"i- 

- H 

2330 L0CATE4,2•PRINT"DIMENSI0NI DEL PIAN 
ù DI CODA" 

2340 LOCATE 1,5:PRINT"Superficie piano d 

i ooda....om J “;SPBEEP 

2350 AI=INT<SQR(LAM*SP>>;BEEP 

2360 LOCATE 1,7SPRINT"Allungamento. 

.cm“;LA BEEP 

2370 C0A = SP/ AI :BEEP 

2380 L0CATE1,9PRINT"Apertura piano di o 

oda . c»“; : PRINTUSING "#•.##“; AI :BEEP 

2390 L0CATE1,11PRINT"Corde media . 

. cm“; :PRINTUSING COA:BEE 

P 

2400 LOCATE 0,14PRINT"I - PROFILO PIA 

NO CONVESSO - 1" 

2410 L0CATE1,17 : PRINT" 

2420 L0CAT£1,18PRINT"- * 

2430 LOCATE 15,17 ;PRI NT"Usate lo stesso 
tipo" 

2440 LOCATE 15,18 :PRI NT"uti1izzato per 1 
■'ala" : BEEP 

2450 IF I NKEVS=""THEN 6OTO2450 
2460 REM 

2470 REM PAGINA 8 
2480 REM 

2490 REM DISEGNO QUOTATO PIANO DI CODA 
2500 REM 

2510 PLAVT200O5L8EFGAGFEL2F. "T200O4L2 
EL2AL2F" 

2520 SCREEN1: COLOR 15,4,4 

2530 CLS LOCATE0,0.PRINT" i- 


2540 LOCATE0,20 : PR I NT " * 1 - 

-FORA=3T06L0CATE3,A:PRINT" 

mammtmmam" - next 

2550 L0CATE3,7 : PRINT'hmmhhhmb" 

2560 L0CATE3.8 PRINT"HMHHM" 

2570 LOCATE 3,15:PRINT" ■■■■MMBHi 
_rf**B“+CHR*<214> 

2580 L0CATE3,10 : PR I NT " 4-t":L0 

CATE8,11 :PRI NT A I 

2590 L0CATE21,13:PRINT" 4-► " 

2600 L0CATE22,12:PRINTUSING"##.#**;C0A 
2610 L0CATE19,9 PRINr i,,r " 

2620 LOCATE19.7 :PRINT"a” 

2630 AP=C0A/3 

2640 L0C ATE19,8; PRINTUSING‘Il *.M";AP 
2650 IF INKEYt=““THEN GOTO 2650 
2660 REM 

2670 REM PAGINA 9 
2680 REM 

2690 REM PROGETTO DERIVA 
2700 REM 

2710 SCREEN0;COLOR7,l,i 

2720 CLS: LOCATE0,0:PRINT“ i- 


2730 L0CATE7,2:PRINT"DIMENSIONI DELLA DE 
RIVA" 

2740 L0CATE1,4 PRINT"La forma della deri 
va non ha molta" 

2750 L0CATEl,5:PRINT"Importanza nel V.V. 
C. : daremo qui" 

2760 L0CATE1,6PRINT"una possibile confi 
gurazione." : BEEP 
2770 FORA*1TO500:NEXTA 
2780 SD=INT<SP/3.5+.5> 

2790 AP=INT(SQR(.8*SP)) 

2800 CR=INT<<2*SD/AP>+.5> BEEP 
2810 CM«<CR*.39>-.5 
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Seguilo listato MSX Progetto aeromodello. 


2820 CA=. 5+<CR*.61) 

2830 SBC«.5+INT<<CM+CA)*AP/2> 

2840 COLOR9,1,1 :BEEP 
2850 PT^SB/3 . 5 

2860 LOCATE!,8 :PRINT"Superficie deriva.. 
. c«s" ; SBC :BEEP 

2870 L0CATE1 , IO :PRINT"Apertura deriva,,. 
.cui " ; A P : B E E P 

2880 L0CATE1,12:PRINT"Corda minima deriv 

a . c« PRINT USIN6"##.* # “ ,CM BEEP 

2890 L0CATE1,14 :PRI NT“Corda massima deri 

va . cm ", PRINT USIN6 "•*.•**; CA: BEEP 

2900 L0CATE1. 16.PRINT" Sup. parte mobile. 

. c»!"; PRINT USIN6"M.M";PT : BEEP 

2918 BEEP LOCATEO.ISPRINT"| - 

— PROFILO - 1 

2920 IfifATC* I ù ■ DDIIIT » — BI C 

ONUESSO SIMMETRICO" 

2930 LOCATE1,20:PRINT"~" " M- “ 

2940 IF I NKEV♦=“" THEN 6OTO2940 
2950 REM 

2960 REM PAGINA 10 
2970 REM 

2980 REM BISE6N0 QUOTATO BELLA BERIUA 
2990 REM 

3000 SCREEN 1 COLOR 15,12,1 2 

3010 PLAVT150O4L8CR64L4CR32L8CL8BL2B + ", 

"T150O3L8ERÓ4L4ER32L8EL8FL2F*" 

3020 LOCATE0,0 PRINT" i - 


3030 LOCATE0,21■PRINT" ' - 

- L0CATE4,5 PRINT" ■■ " : LOC 

A T E 4 ,6 ; P P I N T " ■■ " 

3040 L0CATE4,5 : PRINT" ■■ “ : L0CATE4,6 • PR 

I NT “ ■■ " 

3050 L0CATE4 , 7 PR I N T “ " 

3060 L0CATE4, 8 
3070 L0CATE4, 9 
3080 L0CATE4 . 10 
3090 L0CATE4.il 
3100 L0CATE4 , 12 
3110 L0CATE4 , 13 
3120 L0CATE4,14 
3130 L0CATE4,15 
3140 L0CATE4 , 16 
3150 LÙCATE4 ,17 
3160 L0CATE4,18 
3170 FOR A = 5 TO10LOCATE19,A:PRINT" |":N 
EXT 

3180 FOR A-11T013 :L0CATE19 , A PR I NT “ ■ " 
NEXT 

3190 FOR A = 14T017 :LOCATE19 , A :PRINT"■" 
NEXT 

3200 L0CATE3,3:PRINT"-f— 4-" L0CATE3.2P 
RINT.CM 

3210 L0CATE4,19 :PRINT" 4 - ►" L0CATE5.2 

0 :PR I NTCA 

3220 L0CATE17, 5 : PRINT'V LOCATE 17,17 PR 
INT'" r " : L0CATE15,11 PRINTAP 


rKinr 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" I 

PRINT" I 

PRINT" | 

PRINT"I 



3230 IF INKEV*=""TH£NGOTO3230 
3240 REM 

3250 REM PAGINA 11 
3260 REM 

3270 REM NOTE POSIZIONAMENTO SUPERFICI 
3280 REM 

3290 CLS SCR£EN0:COLOR11,1,1 

3300 LOCATE0,0:PRINT" ,- 

-i “ 

3310 LOCATE0,19:PRINT" * 1 - 


3320 L0CATE2,2:PRINT"N0TE POSIZIONAMENTO 
BELLE SUPERFICI" : BEEP 
3330 L0CATE2,4:PRINT"Calettamento ala-pi 
ano di coda 8"+CHR*(248> 

3340 L0CATE2,SPRINT"Calettamento motore 
-asse : 0"+CHR*<243):BEEP 

3350 F0RA = 1T0 490 NEXTA:C0L0R9.1,1 :BEEP 
LOCATE 1,9 PRINT"I1 timone della deriva 
deve essere -fissato inclinato di 8 

-10"+CHRt(248)" allo esterno della 


circonferenza di volo" 


3360 LOCATE 1,9 PRINTM1 timone della de 
riva deve essere fissato inclinato 

di 8-10"+CHRl<248)“ allo esterno de 

Ila circonferenza di volo < U E B I FI6. 

PAGINA SEGUENTE)":BEEP 
3370 FOR A=1TO 490: NEXT A:C0L0R 5,1,1B 
EEP 

3380 LOCATE0.13:PRINT“ESCURSIONE MASSIMA 
BELLO STABILIZZATORE":BEEP 
3390 L0CATE1,15 : PR I NT“ 10“+CHR»(248>♦ 

“-14"+CHR*<248>+" a cabrare" : BEEP 
3400 LOCATEi,!?: PRINT" 5"+CHR»(2 

48)+" a picchiare":BEEP 
3410 IFINKEV*=""THEN GOTO 3410 
3420 REM 

3430 REM PAGINA 12 
3440 REM 

3450 REM BI SEGNO IN PIANTA AEREO 

3460 REM 

3470 SCREEN 2 

3480 COLOR 15,4,4:CLS 

3490 LI NE<10,20)-<10,80):LINE-STEP<15,0) 

:LINE-STEPC10,-70) 

3500 LINE-STEPi.90, 8) 

3510 LINE-STEP<8,160>-LINE-STEP<30,0> 
3520 LINE-STEPC5,-160) 

3530 LINE-STEP(15,-3):LINE-8TEP<15,-4) : L 
INE-STEP<15, -10) LINE-STEP<-190,0) LINE- 
STEPC-12, 20) :PAINT <15,25),15 
3540 LI NE<10,10)-(20,5),6 :LI NE-STEP<20,0 

) , 6 

3550 LI NE(10 , 9)-<20,4),6LINE-STEP<20,0 

),6 

3560 LINE<10, 8)-<20,3),6 LINE-STEP<20,0 

),6 

3570 LI NE <10, 7>-<20,2>,6 LI NE-STEP<20,0 

) , 6 


3580 L I NE(10, 6)-(20,l),6LINE-STEP(20,0 
) , 6 



























Progatto aeromodello por volo vincolato 



piano di coda. Calcola tutti i dati neces¬ 
sari al disegno finale del piano di coda e 
li stampa con una precisione di due 
cifre decimali grazie al Print Using. Le 
linee 2330-2340 disegnano il profilo pia¬ 
no convesso da utilizzare. 

2380-2560 - Pagina 8: disegno quotato 
del piano di coda. Con lo stesso metodo 
usato per l'ala, viene disegnato e quota¬ 
to il piano di coda dell'aeromodello. 
2570-2840 - Pagina 9: progetto della de¬ 
riva. Dopo aver stampato alcune note 
introduttive, vengono calcolate a parti¬ 
re dalla linea 2680 la superficie della 
deriva SDC, la sua apertura AP, la cor¬ 
da media CR, minima CM e massima 
CA, la superficie della parte mobile PT. 
La stampa dei calcoli e il disegno del 
profilo biconvesso-simmetrico della de¬ 
riva, disegnato mediante i caratteri pre¬ 
definiti, chiudono la "pagina" dedicata 


al dimensionamento dell'impennaggio 
verticale. 

2850-3120 - Pagina 10: disegno quotato 
della deriva. Anche questo effettuato 
nella pagina testo Screen 1. Attenzione 
a utilizzare i caratteri corretti nelle linee 
2940-3050, che sul listato appaiono in¬ 
colonnate in modo da dare una corretta 
visione d'insieme del disegno. 
3130 - 3290 - Pagina 11: note sul posizio¬ 
namento delle superfici. Questo blocco 
di programma contiene delle stringhe di 
testo riguardanti i consigli per un cor¬ 
retto dimensionamento delle superfici 
precedentemente calcolate. La istruzio¬ 
ne Chr$(248) contiene il cerchietto, sim¬ 
bolo dei gradi angolari. 

3300-3510 - Pagina 12: disegno in pian¬ 
ta dell’aereo in alta risoluzione con evi¬ 
denziata la posizione del timone verti¬ 
cale e del senso di rotazione del velivo¬ 


lo. Siamo in alta risoluzione (Screen 2). 
Le linee 3360-3400 disegnano la semivi¬ 
sta in pianta del modello e la colorano. 
Le linee 3410-3450 disegnano la deriva 
col timone convenientemente inclinato. 
Le linee 3460-3490, infine, disegnano la 
circonferenza di volo e scrivono, grazie 
al File aperto all'inizio del programma, i 
messaggi necessari per la comprensio¬ 
ne del disegno. 

3520-3720 - Pagina 13: dimensiona¬ 
mento della squadretta di comando. Ri¬ 
tornati al modo testo, il programma 
traccia il disegno quotato della squa¬ 
dretta di comando e stampa i dati carat¬ 
teristici e le spiegazioni del caso. 
3730-3940 - Pagina 14: note per il pro¬ 
getto della fusoliera. Le linee 3830-3850 
calcolano il braccio di leva BR, la posi¬ 
zione del centro di gravità CG e della 
squadretta SQ, stampandone successi- 


Segulto listato MSX Progetto aeromodello. 


3590 CIRCLE<40.150 >,30,6,0,3.14*3/2,1.4 
3ó00 LINE<40,180>~<35,175> 

3610 LINE<40,180>-<35,185> 

3620 PRESET (72,130) : PRINTttl, 11 i SENS0”:PR 
ESET < 80 , 140).PRINTttl, " R 0 T A Z . " 

3630 PLAVT150O5L8EEF6GFEDL4C", "T150O4L8 
ER8FR86FEDL4C", "L2CL26L8C" 

3640 IF I NKEVtt*""THEN GOT03640 
3650 REM 

3660 REM PAG 1 HA 13 
3670 REM 

3680 REM DIMENSIONAMENTO SQUADRETTA 
3690 REM 

3700 CLS:SCREEN1:C0L0R12,1,1 

3710 LOCATE0.0;PRINT" i - 

- 1 " 

3720 LOCATE0,21:PRINT" * 1 - 

-*■ : LOCATE 2 ,1:PRINT-DIM 

ENSI0NAMENT0 SQUADRETTA" 

3730 LOCATE10,2:PRINT''DI COMANDO" 

3740 LOCATE 10,8 PRINT" O V : BEEP■B 
EEP 

3750 LOCATE 10,9PRINT" ■ “ ; BEEP BEEP 
3760 LOCATE 10,10 : PR I NT " BBBD T “ ; BEEP . 
BEEP 

3770 LOCATE 10,12 : PRINT" 4 - ► “ 

3780 FORA=1TO200:NEXT 
3790 C0L0R5,1,1BEEP 
3300 LOCATE 19,9 ■PRINT"A" 

3810 LOCATE 12 , 13 :PR I NT *B " 

3820 LOCATE 0,18 :PR I NT ” B = m»66 “ 

3830 LOCATE 0 ,17 : PR I NT “A" su» 9-fPIL0TAG6I 
0 FACILE" 

3840 LOCATE 0,16 : PR I NT - A**ml0-tt COMANDI P 


IU SENSIBILI" 

3850 PLAVT200L4CL4DL4E. " 

3860 IF INKEV*»" "THEN GOTO3860 
3870 REM 

3880 REM PAGINA 14 
3398 REM 

3900 REM NOTE PER LA FUSOLIERA 
3910 REM 

3920 CLS:SCREEN0 C0LÙR5,1,1 
3930 LOCATE0,0:PRINT" i- 


3940 L0CATE1,1PRINT“NOTE PER IL DISEGNO 
DELLA FUSOLIERA" 

3950 L0CATE2,2:PRINT"E PER IL CENTRAGGIO 
DEL VELIVOLO" 

3960 LOCATE0,4:PRINT"Per disegnare la fu 
sellerà attenersi" LOCATE0,5 PRINT"alle 
seguenti indicazioni." 

3970 BEEP:FORA a lTO280:NEXT BEEP 
3980 BR=(AL/2+4) 

3990 C6*UX.25 
4000 SQ=U*.35 
4010 BEEP :C0L0R9,1,1 

4020 LOCATE1,7 PRINT"Braccio di leva.... 

.cw H ,:PRINTUSING"»«».»«";BR BEEP 

4030 L0CATE1.9 PRINT"Centro di graviti^ 

55j_om“ j :PRINTUSING"tttt. tt#“;CG: BEEP 

4040 L0CATE1.11;PRINT"Sguadretta comando 
35*...cm"; PRINTUSING"»».•*";SC BEEP 
4050 L0CATE8,13■PRINT"<misure riferite a 

1 bordo d'attaoco)" 

4060 LOCATE0,15 ;PRINT"Tenete i cavi incl 
inati al 1 ' indietro" •LOCATE0,16 PRINT“di 
9®":BEEP;LOCATE10,18 ;PRINT"VEDI PAGINA S 
EGUENTE" 

4070 PLAV“T200L4CL4DL4E.“ 

4080 LOCATE0,20 PRINT" 1 - 
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SERVIZIO SOFTWARE 



Bit e Personal Software propongono ai 
propri lettori i dischi o le cassette dei 
programmi pubblicati. Uso e descrizione 
dei programmi si trovano sui rispettivi 
numeri delle riviste. 




Bit A* 

Programma 

tiatem* 

Codio* 

Supporto 

38 

Gioco della scimmia 

V1C 20 

VI381 

Cassetta 

38 

Spaccama ttoni 

Planai 

Apple Q 

AP382 

Duco 

42 

Apple-Chef 

Apple D 

AP422 

Disco 

42 

ProYarifiesai 

V1C 20 

V1421 

Cassetta 

45 

Tiny FORTH 

All Babà 

Apple 0 

AP452 

Disco 

45 

ZX Speci rum 

SP4S1 

Cassetta 

48 

Forzaquattro 

Apple Q 

AP462 

Disco 

40 

Simulavolo 

ZX Spectrum 

SP401 

Casse ita 

48 

Memory Alfa IV 

C 64 

C8481 

Cassetta 

49 

Scorpion 

Apple!! 

AP492 

Disco 

50 

Pp-Plot 

Apple D 

APS02 

Disco 

50 

Prima e Terza 

ZX Spectrum 
Apple 0 

SP501 

Cassena 

81 

Magicatalog 

AP512 

Disco 

53 

Partita a golf 

V1C 20 

V1531 

Cassetta 

53 

Analisi numerica 

C64 

C853! 

Casse Ha 

53 

PL/Bit: il compilatore 

Apple D 

AP532 

Disco 

54 

Costellations 

Apple Q 

AP542 

Disoo 

54 

Come polarizzare 

1 transistor col C 64 

C64 

C8541 

Cassetta 

56 

Memory Omega ! 

C64 

C6582 

Disco 

58 

Copy disk per C 64 

C64 

C6S82 

Disco 

59 

Cbecksum 64 

C64 

C8S92 

Disoo 

59 

Checksum64 

C64 

C6591 

Cassone 

58 

Data-Bank 

ZX Spectrum 
Apple n 

SP591 

Cassetta 

60 

LifeHCR 

AP602 

Disoo 

60 

Tutti pittori 

C64 

C8601 

Disco 

60 

Difesa della Terra 

C 16 

C1601 

Cassetta 

60 

Lost on thè pack 

Sega 

SE601 

Cassetta 

60 

Setdata e Wordproc 

ZX Spectrum 

SP601 

Cassetta 

60 

Il Barone Rosse 

TI99/4A 

71601 

Cassetta 

60 

Word processor 

C64 

C66C2 

Disco 

60 

Othello 

V1C 20 

V1601 

Cassetta 

61 

Disegno di mobili 
componibili 

eie 

CI611 

Cassetta 

61 

Esperimento di Millikan 

C64 

C6611 

Cassetta 

61 

Esperimento di Millikan 

C64 

C6812 

Disco 

61 

Disegnare in alta risoluzione 

ZX Spectrum 

SP611 

Cassetta 

61 

Prmting music 

TI99/4A 

77611 

Cassetta 

61 

Musica facile 

Sega 

SE811 

Cassetta 

61 

VIC-Calc 

V1C 20 

VBil 

Cassetta 

62 

Gestione conto corrente 

C64 

C6622 

Disco 

62 

Gioco della tombola 

TI99/4A 

77621 

Cassetta 

62 

Aspe lo Spectrum 
contro la cario 

ZX Spectrum 

SP621 

Cassetta 


Btl a* 

Programma 

Sistema 

Codice 

Supporlo 

63 

Operazioni in pagina grafica 

Apple 11 

AP632 

Disco 

63 

Grafia a barre verticali 
affiancate 

C 16 

CI63I 

Cassetta 

63 

Contabili *à casalinga 

C64 

C0632 

Duco 

63 

Disegnare sullo schermo 
con un MSX 

MSX 

MS631 

Cassetta 

63 

Over BASIC 

ZX Spectrum 

SP631 

Cassetta 

63 

Le otto Regine 

TI99/4A 

77631 

Cassetta 

63 

Egitto 2000 

V1C 20 

V1631 

Cassetta 

64 

Roller 

Apple 0 

AP642 

Disco 

64 

Come sistemiamo 
i mobili? 

eie 

C1641 

Cassena 

64 

Titolazioni simulate 

C64 

C8642 

Disco 

64 

Editor grafico 


IB642 

Disco 

64 

per IBM PC 

Detektor 

IBM PC 

MSX 

MS641 

Cassena 

64 

Color Compositor 

Sharp MZ-700 

SH641 

Cassena 

64 

Computer music 

7799/4 A 

77641 

Cassena 

Pia* 

Programma 

Sistema 

Codice 

Supporto 


3 

La carta del cielo 

Collisione 

Apple n 

AP032 

Disco 

4 

Interi in precisione multipla 
Grafica 3D 

Apple n 

AP042 

Disco 

5 

Pretty printer 

Shape tìbie 

Apple II 

AP052 

Disco 

7 

Data base modulare 

Apple n 

AP072 

Disco 

14 

Tool-Kit 

C64 

C6141 

Cassena 

19 

Type-Wnter 

VIC 20 

VI192 

Disco 

20 

Scopa 

C64 

C6201 

Cassena 

30 

Geo-Race 

ZX Spectrum 

SP301 

Cassena 

31 

Progetto aeromodello 

MSX 

MS3II 

Cassena 

31 

Scopa a tre carte 

Apple 0 

AP312 

Disoo 

31 

Grand Pnx 

C64 

C6312 

Dùco 

31 

Sprite 

ZX Spectrum 

SP311 

Cassetta 

31 

Box 

C 16 

CI 311 

Cassetta 


Tatti I dischi • U cuMtti d«i programmi mm la ▼•adita a L. 15.000 

daaoaao. 


Par richiamare 1 programmi in contnsssgno, pagando direttamente al poetino la cifra indicata, Inviare il seguente tagliando 

Spedire in basta chiosa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 

-$xg. 


Inviatemi i seguenti nastri e/o dischi con i pro¬ 
grammi pubblicati su Bit - Personal Software 


«*•- 1 1 1 1 1 1 

| 

tL. 

1 1 151010101 

pillili 

| 

«L. 

i i i i i i 

pillili 

| 

aL 

I l I i i I 

«Pillili 

| 

mh. 

i i i i i i 

+ SPESE POSTALI 



. fi. n.o. 

(contributo fisso) 


| 

1 _ l^|V|Vl u l 


TOTALE L. 1 

1 1 1 L-I.j 


GRUPPO EDITORIALI JACKSON 


Cognome 

Nome.. 

Indirizzo. 

CAP. 

Città. 


che pagherò al postino alla consegna del pacco 


Firma. 








































Progetto aeromodello per volo vincolato 



Seguilo Datato MSX Progetto aeromodello. 


batolo deve contenere m 1 sce1 a";LOCATEO,5 
PRINT’per 2/3 minuti di volo al massimo 


4090 IF INKEY*=““THEN GOTO4090 
4100 REM 

4110 REM PA6INA 15 
4120 REM 

4130 REM DISEGNO POSIZIONE CROI E SQUADR 
ETTA 

4140 REM 

4150 SCREEN 2 

4160 COLOR 15,4,4:CLS 

4170 LINEI255,20)-(24 0.80):LlNE-STEP<-15 
,0) LINE-STEP(-10,-70) 

4180 LI NE -STEP(-90, 8) 

4190 LINE-STEP(-8,160) : LINE-STEP(-30,0) 
4200 LI NE -STEP<-5,-160) 

4 210 LI NE-STEP(-15,-3) LlNE-STEP(-15,-4) 
LINE-STEP( -15, -10) : LINE-STEP(200,0):LIN 
E-STEP(20,20):PAI NT(240,5),15 
4220 PLAY”T150O5L8EEFG6FEPL4C","T150O4L8 
ER8FR8GFEDL4C",“L2CL2GL8C" 

4230 LINE(100,10)-(105,180>,1 

4240 LINE(104,10)-(109,l80),l 

4250 F0RA=4T08:LINE(98,A)-(106,A),7:NEXT 

4260 F0RA=1T04:LI NE(102,A)-(104,A),7 :NEX 

T 

4270 IF INKEY*="“THEN GOTO4270 
4280 REM 

4290 REM PAGINA 16 
*300 REM 

4310 REM POSIZIONE GANCIO SQUADRETTA 
4320 REM 

4330 SCREEN1; COLOR 4,15,4 

4340 L0CATE4,1:PRINT"ALTEZZA DELL'ATTACC 

0 ";L0CATE2,2:PRINT"sulla parte mobile d 


ello":L0CATE6,3PRINT“stabilizzatore ( 


h >" DEEP 

4350 L0CATE2,?:PRINT“h*12,13»m":BEEP 
4360 L0CATE10,15 PRINT" 

4370 LOCATE10,14:PRINT" 

4380 LOCATE10,16:PR1NT“ 

EP 

4390 L0CATE4.17 :PRINT“ l - 
h" 

4400 LOCATEO , 16 : PR 1 NT " 4- 
4410 L0CATE5,18 :PRINT " 

" 60SUB380: 


BE 


Alla squadretta 


4420 COLOR13,15,13 

4430 IF INKEY$= "“ THEN 6OFO4430 

4440 REM 

4450 REM PAGINA 17 


4460 REM 

4470 REM NOTE FINALI 
4480 REN 

4490 SCREEN 0:COLOR5,i,l 

4500 LOCATEO,0 :PRINT“ i- 

^ N 

4510 L0CATE13,1-PRINT"NOTE FINALI" 

4520 LOCATEO,3:PRINT"Usate un'elioa con 
passo corto":BEEP:LOCATEO. 4 :PRINT" 11 ser 


4530 LOCATEO,6 ;PRINT'Per la barra di eoa 
andò usate -filo di LOCATEO, 7: PRINT"aooi 
aio armonico di * 1.5/2mm" 

4540 G0SUB5330 
4550 C0L0R8,1,1 

4560 LOCATEO,10:PRINT"Se la velocità di 
volo -fosse tr oppo " • LOC ATEO, 11 : PR I NT " a 11 a 
, non aumentate il peso del mode 1 lo":LOC 
ATE0,12:PRINT"ma riducete il passo dell' 
elica" 


4570 LOCATEO,18:PRINT".BUON L 

AVORO." 

4580 LOCATEO,20 PRINT"FINE":GOTO4580 
4590 END 
46O0 REM 

4610 REM SOTTOPROGRAMMA PROFILI 
4620 REM 

4630 CLS : COLOR 15,4,4 
4640 LOCATE0,0 PRINT” 

4650 L0CATE10,2:PRINT’'CLARK X" 

4660 L0CATE2,5PRINT"X O 2.5 5 7 

,5 10":BEEP 

4670 L0CATE2.6:PRINT“Ys 4 6,64 7.95 8 

.92 9,68" 

4680 L0CATE2,? PRINT“Yi 0.5 O.03 0 

0 0 “ 

4690 L0CATE2, 9PRINT"X 10 20 30 

40 50" : BEEP 

4700 LOCATE2,10PRINT"Ys 9.68 11.3 11.7 
11.4 10.51" 

4710 L0CATE2,11 :PRINT"Vi 0.5 0.03 0 

0 0 

4720 L0CATE2,13:PRINT"X 60 70 80 

90 ÌOO" BEEP 

4730 L0CATE2.14 PR I NT"Ys 9,15 7.35 5.22 

28 012 " 

4740 L0CATE2,15:PRINT*Vi 000 
0 0 * 

4750 L0CATE2,18 ■- PRINT "UNIRE 1 PUNTI IN U 
N GRAFICO PER AUERE IL PROFILO “ 

4760 IF INKEY* THEN GOTO 4760 

4770 GOTO 1910 

4780 CLS: COLOR 15,4,4 

4790 LOC-ATEO,0PRINT" 

4800 LOCATE10,2 :PRINT"CLARK V" 

4810 L0CATE2,5PRINT“X 0 2.5 5 7 

,5 10“:BEEP 

4820 L0CATE2,6:PRINT"Ys 3.6 6.43 7.8 8 

.79 9.56 " 

4830 L0CATE2,7:PRINT"Yi 3.6 1.42 .9 

.59 .39" 

4840 L0CATE2, 9:PRINT"X 10 20 30 

40 50": BEEP 

4850 L0CATE2,10■PRINT"Ys 9.56 11.3 11.7 
11.3 10.49" 

4860 L0CATE2,ll:PRINT"Yi 0.6 0.02 O 
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vamente i risultati. 

3950-4110 - Pagina 15: disegno in alta 
risoluzione del modello con evidenziata 
la posizione dei cavi di comando e della 
squadretta. Le linee 4010-4050 disegna¬ 
no e colorano la semivista in pianta del 
modello. Le linee che vanno da 4070 a 
4080 disegnano i cavi con la corretta 
inclinazione; i due cicli For-Next delle 
linee 4090-4100 disegnano, infine, la 
squadretta di comando al centro della 
fusoliera. La linea 4060 esegue un pic¬ 
colo stacco musicale durante l'esecu¬ 
zione del disegno. 

4120-4260 - Pagina 16: posizione del 
gancio sullo stabilizzatore. Questo 
blocco di programma elabora la pro¬ 
fondità del gancio che unisce, tramite 
una barretta di acciaio armonico, la 
squadretta di comando e lo stabilizza¬ 
tore del piano orizzontale. Il Gosub che 


appare alla linea 4240 manda alla pri¬ 
ma subroutine musicale (linea 370). 
4270-4410 - Pagina 17: note finali. È 
l’ultima videata del programma. Stam¬ 
pa alcuni consigli finali sull'impostazio¬ 
ne del progetto e sulla messa a punto 
del modello per il primo volo. Il program¬ 
ma finisce con un anello chiuso formato 
da una istruzione Goto che rimanda 
alla sua stessa linea: per fermare il pro¬ 
gramma bisognerà quindi dare un 
Break. 

4420-4900 - Sottoprogramma profili. È 
formato da tre schermate distinte, o- 
gnuna delle quali contiene le coordina¬ 
te dei punti per poter disegnare il profilo 
alare scelto alla pagina quattro del pro¬ 
gramma. Le stringhe sono strutturate in 
maniera da incolonnare i valori delle 
coordinate, per cui fate attenzione agli 
spazi. 


4910-5110 - Sottoprogramma di carica¬ 
mento degli sprite. Carica gli sprite di 
dimensione 16 x 16 per la schermata 
iniziale, utilizzando i numeri in configu¬ 
razione binaria. 

5130-5370 - Secondo sottoprogramma 
musicale. Si tratta della Romanza opera 
50 di Beethoven, eseguita a tre voci su 3 
ottave. Per una più chiara lettura del 
brano a ogni istruzione Play corrispon¬ 
de una misura. 

In coda al programma troverete la lun¬ 
ghezza indicativa del programma stes¬ 
so. ■ 


Seguito listato MSX Progetto aeromodello. 

0 0 " " 

4870 L0CATE2,13:pRINT"X 60 70 80 

90 100" BEEP 

4380 L0CATE2,14PRINT"Vs 9,1 7,43 5.2 

2.8 0 

4890 L0CATE2,15:PRINT"Vi 000 
0 0 11 

4900 L0CATE2,18PRINT 11 UNIRE I PUNTI IN U 
N GRAFICO PER AVERE IL PROFILO " 

4910 IF INKE V4 =”" THEN GOTO 4910 
4920 GOTO 1910 
4930 CLS: COLOR 15,4,4 
4940 LOCATE0,0:PRINT” 


4950 

LOCATE 8,2 :PRI NT"SA I NT 

CVR 52" 


4960 

LÙCATE2,5 :PRINT"X 0 

2.5 5 

7 

,5 

10":BEEP 



4970 

L0CATE2,6:PRINT"Vs 2.5 

4.24 5.5 

6. 

47 6 

. 8 



4980 

L0CATE2,?:PRINT"Vi 2.5 

1.66 1.3 

0 

.87 

0.8 " 



4990 

L0CATE2 , 9 P R I N T " X 18 

20 30 


48 

50":BEEP 



5080 

L0CATE2,10 F'RINT"Vs 6.8 

9.18 10 


9.8 

8.8 



5010 

L0CATE2,ll:PRINT"Vl 0.8 

6.82 6 


0 

0" " 



5020 

L0CATE2,13PRINT"X 60 

70 80 


90 

106":BEEP 



5038 

L0CATE2,14:PRINT"Vs 7.5 

5.5 3.9 


2.1 

0 



5840 

L0CATE2,15 :PRINT"Vi 6 

0 0 


0 

0 " 



5050 

L0CATE2,18:PRINT"UNIRE 

I PUNTI IN 

U 


N GRAFICO PER AVERE IL PROFILO " 


5060 IF INKEV$ = "" THEN GOTO 5060 

5070 GOTO 1910 

5030 END 

5090 REM 

5100 REM SPRITE 

5110 REM 

5120 SCREEN2,3 

5130 A4 = " ” : B4 = " " : C 4 * " " : D$ = " “ 

5140 F0RI=1T08 R E A D V 4:A4=A4+CHR4(VAL< "&B 
"+V4>> NEXTI 

5150 FORI=1T08 PEADV4 B4=B4+CHR4<VAL<"&B 
"+V4>): NEXT I 

5160 F0RI=1T08 READV4 C4 = C4 + CHR4<VALC’fcB 
"+V4 ) >:NEXT I 

5170 F0RI.= 1T08 READV4 D4 = D4 + CHR4(VAL<"DB 
"+V4)):NEXT I 

5180 SPRITE4(0)=A4+B4+C4+D4 
5190 DATA00000000,00000000,00000000,0110 
0000 , 01100000 , 01100111 , 01101111,01111111 
, 01111110 , 00000011 , 00000000 , 00000000,000 
00008,00000008,08000000,00080000,8060008 
0,00000000,01111100,00060000,00000001,00 
111001 , 10111101 , 11111101 , 00001101,111100 
01 , 00000000 

5206 DATA60110000,00118000.00000000,0000 
0000 ,06000000 

5210 A4*"" : B4 = "" :C4 = “" D4=“" 

5220 FORI =1T08 READV4 : A4 = A4 + CHR4<VAL< "t-B 
” + V4) ) ;NEXTI 

5230 F0RI=1T08:READV4:B4=B4+CHR4<VAL<“&B 
” +V4 > ) : NEXT I 

5246 F0RI=1T08:READV4:C4=C4+CHR4<VAL< " fcB 
"+V4>>:NEXTI 

5250 F0R I = 1T06 READV4 D4 = D4 + CHR4 ( VAL < " 6<B 
"+V4)) : NEXTI 

5266 SPRITE$C1>=A4+B4+C4+D4 
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Progetto aeromodello per volo vincolato 



Seguito Datato MSX Progetto aeromodello. 

5270 DATA00000001,0011illl,00111111,0106 
1111 ,11111111,011001li,HI11111,00001Ili 

, 00000000ì 00000000,00000000,00000000,000 
00000 , 00000000 , 00000000 , 00000000,0000000 
0 , 11100000 , 11111100 , 11111100 , 11111110,11 
111000 , 11110000 , 11111000 , 11110000,000000 
00,00000000 

5280 DATA00000000,00000000,00000000,0000 

0000,00000000 

5290 RETURN 

5300 REM 

5310 REM SECONDO SOTTOPROGRAMMA MUSICALE 
5320 REM 

5330 PLAVT200O4L4G. *, “T200O3L4G.* 

534 0 PLAVT250O5L5CO5L2C. ” , "T250O4L1C* 
5350 PIAVL4EL4DL4FL4D”, “03L1F" 

5360 PIAV05L2CR804L8B05L8D04L8B", “03L1G 

H 

5370 PLAV04L26R4L46", "03L1G" 

5380 PLAV05L2CL8DL8C + L8DL8D+", “04L2C03L 
2F " 

5390 PLAV05L2EL8FL8EL8FL8A", “04L2C03L2F 

N 

5400 PLAV05L2ER8L8FL8F+L86-, “04L1C" 

5410 PLAV05L2D. 04L46" , "04L16" 

5420 PLAV05L2F.L4D". "04L1D', "T250O3L16* 
5430 PLAV"04L4B05L4C04L4B05L4C‘,"03L4604 
L4EL4DL4E* 

5440 PLAV05L2F.L4D", “04L1D", “03L1G" 

5450 PLAV04L4B05L4GL4F + L46",“03L4G04L4E 
L4D+L4E" 

5460 PLAVL2A.L8B06L8C", “04L2FL2F + " 

5470 PLAV05L2C.L8L8EL8D", "04L1G" 

5480 PLAV05L2DL4G04L4B", "03L1G" 

5490 PIAV05L1C" , "04L1E" , "03L1C“ 

5500 RETURN 
5510 REM 

5520 REM '10818 bytes A DISPOSIZIONE 


Elenco variabili 

A.P.X.I 

Variabili del sistema. 

CC 

Cilindrata del motore. 

Para 

Parametro di dimensionamento 

Peso 

Peso del modello. 

Supala 

Superficie alare. 

Lam 

Allungamento. 

Al 

Apertura alare. 

Co 

Corda media alare. 

Sp 

Superficie del piano di coda. 

Pm 

Superficie parte mobile. 

La 

Allungamento. 

Al 

Apertura del piano di coda. 

Coa 

Corda media P.C. 

Sd 

Superficie deriva (prima approssimazione). 

Ap 

Apertura deriva. 

Cr 

Corda media deriva. 

Cm 

Corda minima deriva. 

Ca 

Corda massima deriva. 

Sdc 

Superficie deriva. 

Pt 

Superficie parte mobile (timone). 

Br 

Lunghezza del braccio di leva. 

Cg 

Centro di gravità. 

Sq 

Posizione squadrelta. 

AS.BS.CS.DS 

Stringhe sprite. 









RETI 




Screen Input 

P er un tocco “professionale” ai 
vostri programmi ecco un inte¬ 
ressante contributo di Francesco 
Balena di Bari. 

Con l’arrivo del microdrive e delle inter¬ 
facce per stampanti da 80 colonne si va 
scoprendo la vocazione dello Spectrum 
per il software “serio”. Chi però questi 
programmi vuole (o deve) farseli da sé si 
scontra immediatamente con una delle più 
antipatiche caratteristiche del “buon vec¬ 
chio” BASIC Sinclair, ossia l’input dei dati 
relegato nella parte bassa dello schermo; è 
cosa di poco conto, ma cosi terribilmente 
poco “user friendly” ... oh, come vorrem¬ 
mo un Apple o un C 64! In attesa di tempi e 
computer migliori (non se la prendano a 
male i “spectrumaniaci” più accaniti) non 
ce ne siamo stati in panciolle e, dopo aver¬ 
vi angustiato con la prognosi di questa 
malattia del Nostro (che ne dite di “lieve 
intossicazione da videogame”?), passiamo 
a presentarvi la ricetta per una pronta c 
felice guarigione ... 

II programma 

Inutile dirlo, la routine c scritta intera¬ 
mente in linguaggio macchina; per caricar¬ 
la non dovete fare altro che introdurre il 
programma di Hcx-Loader e dare il Run: 
se non vi sono errori nelle righe di Data, 
comparirà la scritta “Start Tape,...” c po¬ 
trete salvarla su nastro. 

La routine è lunga 348 byte e quindi la si 
carica da nastro in pochi secondi. Avrem¬ 
mo potuto risparmiare qualche decina di 
byte, rinunciando però alla sua caratteristi¬ 
ca più importante, quella di essere perfet¬ 
tamente rilocabile. 

Pertanto, per usarla nei vostri programmi 
dovete innanzi tutto caricarla con; 

LOAD “scr input” CODE addr 

dove “addr” è l’indirizzo al quale intende¬ 
te collocarla (ovviamente deve essere oltre 
la RAMtop). 

Per richiamarla da BASIC si usa l’istruzio¬ 
ne: 


quando questa linea verrà eseguita appari¬ 
rà il cursore lampeggiante (L/C) alla attua¬ 
le posizione di Print, e da quel momento la 
routine si comporterà come una normale 
Input Line, con le seguenti eccezioni: 

1) non si può entrare nel modo E, G o K; 
z) non vengono accettati i caratteri di con¬ 
trollo dei colori; 

3) la pressione di “Cursor Down” (Caps 
Shift + 6) non blocca l’elaborazione; ciò c 
intenzionale e permette una (blanda) for¬ 
ma di protezione del vostro programma. 

Premendo Enter si torna al BASIC e la 
stringa aS conterrà quanto avete battuto 
sullo schermo. Se vi aspettate un valore 
numerico, dovrete calcolare: 

LF.T a = VAL aS 

oppure scrivere direttamente: 

LF.T a = VAL (“” AND USR addr) 

Se gli input nel vostro programma sono 
molti, può convenire di definire due fun¬ 
zioni: 

DEF FN i$() = AND USR addr 
DF.F FN i() = VAL (“” AND USR addr) 

Infine è possibile stampare un messaggio 
di prompt, esattamente come per gli input 
normali: 

LF.T a$ = "nome:” AND USR addr 

Il listato Assembly dovrebbe essere abba¬ 
stanza comprensibile per chi è un po’ prati¬ 
co di linguaggio macchina sullo Spectrum, 
anche grazie ai commenti profusi in quan¬ 
tità. 

Da notare che per conservare la rilocabilità 
della routine è stato necessario sostituire 
alcuni JP con delle catene di JR intermedi 
(vedi le etichette Loopi, Loop2 e Enteri) 
e che si è dovuto utilizzare lo stack per 
conservare le informazioni, anziché delle 
locazioni di memoria fisse. 

F. inoltre importante notare che, poiché 
la stringa che introduciamo dalla tastiera 
viene creata in memoria nello spazio riser¬ 
vato all’editing dei comandi e delle righe 
di programma, questa istruzione di Input 
non può essere usata in modo diretto, ma 
soltanto come istruzione di programma 
(ma crediamo che la cosa non dia tanto 
fastidio, dopotutto). g 
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LET aS = AND USR addr 








Screen Inoul 


ZX SPECTRUM 


Listato 1 - Il listato Hex-Loader. 


Per^fa r ouffruF^c^EEN INPUT 

15 DEF FN h(b$)=CODE b$-48-?*( 
CODE b*>57) 

20 CLEAR 25999 
30 LET add=26000 
40 FOR k =100 TO 310 STEP 10: R 
EfiD a*: READ su rii 

50 FOR j=l TO 31 STEP 2 
60 LET byte=16*FN h(a$(j))+FN 
h ( a * ( j +1 ) ) 

65 LET smussimi-byte 
70 POKE add.byte: LET add=add+ 
1: NEXT J 

30 IF sunto© TMEN PRINT "ERROR 
E IN RIGA ";K: BEEP 1,30: STOP 
90 NEXT K 

95 SAUE "scr input"CODE 26000, 
343 

100 DATA "3E02CD0116CDF12B73B12 
3061AD7130B",1395 
110 DATA "18F62A88SCE5FDCB578EE 
D5B595CED53",2283 
120 DATA "5BSC2A615C2B2BCDE519C 
1C5CDD90DED" .2021 
130 DATA "5BS95C2A5B5CA7ED527CB 
523051AD?13" . 1593 
140 DATA "18F13E4CFDC6305E23023 
E43CDC1132A".1636 
150 DATA "585C7EFE0D28097EFE0D2 


304D72313F7",1533 
160 DATA " 3E03D7AFFDCB016E23F9F 
DCB01AEED5B",2275 
170 DATA "395C160021C300CDB5031 
30213AC3A08",1081 
180 DATA "5CFE06231DFE072829FE0 
82858FE0928",1456 
190 DATA "62FE0C236CFE0D284AFE2 
033DFCD850F",1811 
200 DATA "18DAFDCB305EFDCB30DE2 
3D0FDCB309E",2476 
210 DATA "18CAC1C5CDD90D2A595C3 
A915CF5FDCB".2270 
220 DATA "57963E20D77E23FE0D20F 
7F132915CED".2018 
230 DATA "5B595CED535B5C2A615C2 
B2BCDE51918",1575 
240 DATA "9B189918432A5BSC2B7EF 
E80288E225B",1506 
250 DATA "5C18892A665C7EFE0D28E 
623225B5C18",141? 

260 DATA "E02A595CED5B5B5CA7ED5 
27CB528D2EB",2234 
270 DATA "2B010100CDE8'193A915CF 
5FDCB57963E".1302 
230 DATA "20D7F132915C1SB9C1CDD 
90D2A595C01",1836 
290 DATA "00007EFE0D2805D723031 
3F63A915CF5",1501 
300 DATA "FDCB57963E20D73E03D7F 
132915CED5B",2143 
310 DATA "59SCCDB22A215827D90E0 
1C900000000",1199 


Listato 2 - Il programma Assembly. 


equ 23688 S-POSN 
equ 23643 K-CUR 
equ 23641 E-LINE 
equ 23560 LAST-K 
equ 23649 LIQRK3P 
equ 23609 PIP 
equ 2369? PFLAG 
equ 5633 CH-OPEN 
equ 11249 STK-FETCH 
equ 10930 STK-STORE 
equ 6629 RECLAIM 
equ 6632 RECLAIM2 
equ 3545 CL-SET 
equ 6337 0UT-FLA3H 
equ 949 BEEPER 
equ 3973 ADD-CHAR 


org 30000 

aanxonB 

30000 3E 02 
300C 


EHS 



30003 73 

30009 B1 

30010 23 06 

30012 1A 

30013 D7 

30014 13 

30015 0B 

30016 13 



Ld a ,2 

cali CH-OPEN 
cali STK-FETCH 



30018 2A 88 5C 
3< 



3 

30030 
30034 
3003? 
30038 
3 



Uhi, (S-POSN) 
PUSH hi 

(iy+8?) 

e,(E-LINE) 
ld (K-CUR),de 
ld h l , (UORKSP) 
dee hi 
dee hi 

cali RECLAIM 


30042 C3 

30043 C5 

30044 C 


POP bc 
push bc 



)4? ED 5B 59 5C 


30051 2A 5B 5C 

30054 A7 

30055 ED 52 
3005? 7C 

30058 B5 

30059 28 05 

30061 1A 

30062 D7 

30063 13 

30064 18 


de , (E-LINE) 


ld hi, (K-CUR) 
and a 
sbe hl,de 
ld a ,h 
or l 

jr Z , CURSOR 
l d a , ( d e ) 
rs t 16 
ine de 
.jr IN2 


30066 3E 4C ld a,76 

30068 FD CB 30 5E bit 3,(iy+48) 
30072 28 02 jr Z,+2 
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Seguito listato Assembly. 

30074. 3E 4.3 
3 


Ld a , 67 



30082 ?E 

30083 FE 0D 
985 28 09 

987 7E 
30088 FE 0D 
30090 28 04- 

30092 D7 

30093 23 
994. 18 F7 


h l (K-CUR) 

ìé‘ hu 


Ld a, (hi) 
cp 13 
jf Z,IN4 
rs t 16 
ine hi 
jf IN3 



30099 RF xor a 

30100 FD CB 01 6E bit 5,(iy+l) 

30104. 28 F9 jf Z , Ufi IT 

res 5, (iy+1) 

ld de,(PIP) 
ld d,0 
ld hi,200 
cali BEEPER 
jf +2 

OOP 


30114 16 
30116 21 
30119 CD 
30122 18 


00 

C8 00 
B5 03 
02 



d a , (LflST-K) 


30129 

FE 

06 

CP 

6 

30131 

28 

1D 

jf 

Z,CHfiNGE 

30133 

FE 

07 

CP 

7 

30135 

28 

29 

jf 

Z , ED IT 

30137 

FE 

08 

CP 

8 

30139 

28 

58 

jf 

Z,LEFT 

30141 

FE 

09 

CP 

9 

30143 

28 

62 

jf 

Z,RIGHT 

30145 

FE 

0C 

cp 

12 

30147 

23 

6C 

jf 

Z , DELETE 

30149 

FE 

0D 

cp 

13 

30151 

28 

4fi 

jf 

Z , ENTER1 

30153 

FE 

20 

CP 

32 



CD 85 0F 
13 Dfl 


30162 



30 

5E 

30166 

FD 

CB 

30 

DE 

30170 

28 

D0 



30172 

FD 

CB 

30 

9E 


18 Cfi 


OOP 

push 

cali 



cali RDD-CHfiR 
jf LOOP1 


jf Z,LOOP1 
res 3,(iy +46) 
jf LOOP1 


apro 

“INE) 


IK'.’E' 


l , (E- 
,(PFLfiG) 
a f 

2,(iy+87) 


30196 D7 

30197 7E 

30198 23 

30199 FE 0D 
3 


fSt 16 

ld a, (hi) 
ine hi 
CP 13 



30203 

FI 

POP 

30204 




30207 ED 56 59 
30211 ED 53 5B 
30215 2fi 61 50 

30218 2B 

30219 2B 

30220 CD E5 19 
18 9B 



5B 5C 

30232 28 

30233 7E 

30234 FE 80 
30236 28 8E 
30238 22 5B 5C 

18 89 


a f 

iPFLRG) ,a 

ld de, (E-LINE) 
ld (K-CUR),de 
ld hi, (UORKSP) 
dee hi 
dee hi 

cali RECLfilM 
jf LOOP1 

jf LOOP1 

jf ENTER 


ld hi, (K-CUR) 
dee hi 
ld a, (hi) 

CP 128 
jf z,LOOP 1 
ld (K-CUR),hl 
jf LOOP1 



5B 5C 

30246 7E 

30247 FE 0D 
30249 28 E6 

30251 23 

30252 22 5B 5C 
18 E0 


ld hi. (K-CUR) 
ld a , (h l) 

CP 13 

jf z,L00P2 

ine hi 

ld (K-CUR), hi 
jf L00P2 



30260 ED 5B 5B SC 

30264 fi7 

30265 ED 52 

30267 7C 

30268 B5 

30269 28 D2 

30271 EB 

30272 2B 

30273 01 01 00 
3( 


(E-LINE) 
ld de, (K-CUR) 
and a 
sbe hl,de 
l d a , h 
of l 

jf Z , L00P2 
ex de , h l 
dee hi 
ld bc , 1 



30279 3fi 91 5C 

30282 F5 

30283 FD CB 57 96 
30287 3E 20 
30239 07 

30290 FI 

30291 32 91 5C 
30294 18 B9 


Ld a, (PFLfiG) 
push a f 
res 2,(iy+87) 
ld a,32 
rst 16 
pop a f 

ld (PFLfiG) ,a 
jf L00P2 



CI 

30297 CD D9 0D 
30300 2fi 59 5C 
903 01 00 00 


,32 


pop bC 
cali CL-SET 
ld hi, (E-LINE) 
ld bC , 0 
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Screen Input 
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Seguito listato Assembly. 


30306 7E 

30307 FE 0D 
30309 28 05 

30311 D? 

30312 23 

30313 03 


i.d a , (h l) 
CP 13 
jr Z,IN7 
rst 16 
ine hi 
ine bc 





30316 3fi 

30319 F5 

30320 FD CB 57 
30324 3E 20 

30326 D7 

30327 3E 08 

30329 D7 

30330 FI 

30331 32 91 5C 



Ld a , (PFLfiG) 
push a f 

96 res 2 , i i y +87) 
i. d a , 32 
rst. 16 
Ld a , 8 
rst 16 
pop a f 

Ld (PFLflG) ,a 


a - 3 rii ►: t r i 


30334 ED 5B 59 5C Ld de ,(E-LINE) 
30338 CD B2 2fi caLL STK-STGRE 


Lina hl 


30341 21 58 27 

30344 D9 

30345 0E 01 
30347 09 


Ld h L,10072 

exx 

Ld C i 1 
re t 


S-POSN 

K-CUR 

E-LINE 

LfiST-K 

LJGRKSP 

PIP 

PFLfiG 

OH-OPEN 

STK-FETCH 

5TK-ST0RE 

RECLRIM 

RECLRIH2 

CL-SET 

OUT-FLfiSH 

BEEPER 

PDD-CHfiR 


23683 

23643 

23641 

23560 

23649 

23609 

23697 

05633 

11249 

10930 

06629 

06632 

03545 

06337 

00949 

03973 


INO 

INI 

LOOP 

IN2 

CURSOR 

IN 3 

IN4 

U fi IT 

LOOP 1 

CHfiNGE 

ED IT 

IN5 

LOOP 2 

ENTER1 

LEFT 

RIGHT 

DELETE 

ENTER 

IN6 

IN7 

y.u 

y. fi 
y.e 
y.c 
y. d 
y.E 
y. f 
y. g 
y.h 
y. i 
y.j 
y. k 
•al 
y.h 
y. n 
>:o 
y.p 
y o 
y.p 
y. s 
y.T 
y.u 
y. u 
y.u 
y.x 
y.v 
v.z 


30008 

30018 

30042 

30051 

30066 

30087 

30096 

30099 

30124 

30162 

30173 

30194 

30225 

30227 

30229 

30243 

30257 

30296 

30306 

30316 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

65535 

00511 

02548 

04264 

62539 

50185 

21269 

03969 

05572 

62546 

50185 

20501 

00128 



Dalla 
grande 
edicola Jackson 

HOMÉCCWWIBÌ 

La rivista del computer in casa. "Prove su 
strada" di software e programmi per tutti i 
personal computer. 

11 numeri all'anno: L 3.500 a numero 
Abbonamento: solo L 31.500 

Quando l'informazione 
fa testo 




CO 



VICENZA - CORSO FOGAZZARO, 139 - TEL. 0444/36669 


TUTTO 


AMSTRAD 

PROGRAMMI, MANUALI, PERIFERICHE, NOTIZIARIO TUTTO AMSTRAD - 1000 
PROGRAMMI DISPONIBILI DI UTILITY, DIDATTICI, GIOCHI FAVOLOSI, NOVITÀ 

scrivici e subito diventi nostro socio. 
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I SEGRETI DEI PERSONAL 



dì Andrea Caporin 


On interval 
Gosub C 64 

I personal e gli home computer del¬ 
l’ultima generazione, come ad esem¬ 
pio l’IBM PC o gli home della serie 
MSX, hanno il BASIC equipaggiato 
di un nuovo gruppo di istruzioni denomi¬ 
nato: gestione dell’interrupt da BASIC. 
L’istruzione di questo gruppo che più si 


distingue sulle altre è la “On Time Gosub” 
(IBM), o la “On Interval Gosub” (MSX), 
la quale, se inserita in un programma, fa in 
modo che a intervalli regolari di tempo 
l’esecuzione passi a una subroutine scritta 
in BASIC e inserita nello stesso program¬ 
ma. Alla presenza di un Return, poi, si 
torna al punto preciso in cui era stato inter¬ 
rotto il programma principale. 

La routine in linguaggio macchina che 
stiamo per descrivere implementa questa 
nuova possibilità sul Commodore 64, che, 
come è noto, ne è sprovvisto. 

Come si usa 

La routine inizia dalla locazione 52480 


(SCDoo) e si estende per 544 byte; inoltre, 
a partire da SCFoo vengono utilizzati circa 
100 byte relativi al salvataggio di quella 
parte di pagina zero riservata ai dati BA¬ 
SIC. 

La sintassi della nuova istruzione è la se¬ 
guente: 

SYS 5 2480, < sec/60 >, < num. di linea > 
dove il parametro dopo la prima virgola è 
il tempo, espresso in sessantesimi di secon¬ 
do, che trascorre tra il ritorno e una nuova 
chiamata alla subroutine che inizia alla li¬ 
nea specificata nel parametro successivo. 
Da precisare che durante l’esecuzione di 
questa subroutine il contatore dell’istru¬ 
zione è disabilitato. 


Listato 1 • Il caricatore BASIC della routine. 


5 REM CARICATORE BASIC ON INTERVAL GOSUB 
10 PR INTCHR*< 147 > “ON INTERVAL GOSUB' 1 
80 FORI «38480 TO 58884 !R^ADA!X=X+A:POKEI, 
A !NEXT 

30 IFX< >40993THEhPRINT’ERRORE NEI DATA ! * 
s END 

40 0ATA38,853,174,38,138,173,38,155,188,1 
65,37,801,153,144,3,76,78,178,185,93 
50 DATA 141,58,3,165,100,141,53,3,165,101, 
14 1,54,3,38,853,174,38,138,173,38,847 
60 DATA 183,165,80,141,55,3,165,81,14I,56, 
3,38,103,805,169,197,141,0,3,169,805 
70 DATAMI , 1,3,169,1 14,14 1,38,3,169,805,1 
41,39,3,173,58,3,133,851,173,53,3,133 
80 0ATA85E,173,54,3,133,853,180,169,81,14 
1,80,3,169,806,141,81 ,3,88,96,169,118 
90 DATAMI ,8,3,169,805,14 1,3,3,96,180,76, 
808,841,173,80,3,141,57,3,173,81,3,141 
100 DATA58,3,38,145,805,165,68,14I,59,3,1 
69,0,133,68,76,131,164,169,131,141,8,3 
I10 DATA 169,164,14 1,3,3,180,169,49,141,80 
,3,169,834,141,81,3,88,96,134,854,160 
180 DATA 184,177,851,145,853,136,48,844,19 
8,67,176,845,198,63,176,845,198,53,176 
130 0ATA837,198,43,176,837,144,831,884,18 
,808,31 ,801 ,855,808,87,104,169,807,133 
140 0ATA858,168,0,38,168,805,168,18,189,1 
85,807,157,855,0,808,16,847,38,75,805 
150 DATA76,188,854,138,16,3,76,116,164,88 
4,86,808,87,178,59,3,840,88,138,68,180 
160 DATA 173,57,3,141,80,3,173,58,3,141,81 
,3,88,38,103,805,76,98,168,169,0,141,59 
170 DATA3,76,139,887,165,853,808,18,165,8 
58,808,6,165,851,840,9,198,851,198,858 
180 DATA 198,853,76,49,834,169,855,78,38,1 
55,805,168,807,38,168,805,168,18,189 
190 DATA255,0,157,185,807,808,16,847,168, 
85,169,0,149,87,808,16,851,173,55,3,133 
800 DATA80,173,56,3,133,81,38,188,168,76, 
174,167 
READY. 
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On Interval Goiub C 64 


COMMODORE 64 


Il valore indicato nel primo parametro 
deve essere compreso tra o e 16777215 
sessantesimi di secondo, vale a dire il mas¬ 
simo valore rappresentabile in tre byte, nel 
secondo parametro invece tra o e 65535: 
valori al di fuori di questi indicati provoca¬ 
no la stampa del messaggio “Illegal Quan- 
tity Error”. 

In ogni momento dell’esecuzione del 
programma principale è possibile disatti¬ 
vare definitivamente o momentaneamente 
il contatore che provoca il salt oemporiz- 
zato con il comando Sys 52635, il cui sco¬ 
po è quello di riportare il vettore di IRQ al 
valore normale. Per riattivare il contatore 
si usa il comando Sys 52570, che modifica 


nuovamente il vettore di IRQ, facendolo 
puntare al contatore. 

Ogni volta che l’esecuzione del program¬ 
ma termina, oppure è interrotta dal tasto 
di Stop o da un messaggio di errore, l’at¬ 
tuale vettore di IRQ viene salvato in modo 
da poter proseguire l’esecuzione con il co¬ 
mando Cont, riattivando eventualmente 
anche il contatore dal punto in cui era stato 
interrotto. 

Alcune avvertenze 

La nuova istruzione può essere utilizzata 
in un qualsiasi programma BASIC; C op¬ 
portuno però disabilitare l’istruzione ogni 
qualvolta si faccia uso di istruzioni di input- 


output per mezzo di periferiche (escluso il 
video). Questo per evitare che avvengano 
interruzioni durante l’uso della periferica 
stessa. Inoltre è consigliabile utilizzare il 
comando di disabilitazione prima del salto 
a una subroutinc in linguaggio macchina 
eventualmente inserita nel programma 
principale. 

Le funzioni di stringa, quali: LeftS, Mid$, 
RightS, è meglio non utilizzarle con l’i¬ 
struzione Print, come ad esempio: Print 
Left$ (A$,3). In alternativa scrivere: 
BS = LeftS (AS.3): Print BS. 

Questa modifica si rende necessaria per 
evitare che la stringa appena calcolata, pri¬ 
ma di essere stampata, venga modificata 
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I SEGRETI DEI PERSONAL 


On interval Gosub C 64 


COMMODORE 64 


con caratteri estranei da un’interruzione 
generata dal temporizzatore. 

Per utilizzare il programma digitare ed 
eseguire il caricatore BASIC (listato i). 
Nel listato 2 è riportato il disassemblato 
commentato della routine. 

Inoltre i listati 3 e 4 sono due semplici 
esempi, che danno un’idea di come funzio¬ 
na la nuova istruzione. 

Infine suggeriamo di provare quanto se¬ 
gue: caricare l’On Interval Gosub e uno 
dei due programmini di prova; ora, invece 
di dare il Run, digitare in modo diretto la 
prima riga di programma: dopo aver pre¬ 
muto Return digitare nuovamente 
Sysj 2570 . ■ 


Listato 3 - 5 REM ESEMPIO 01 UTILIZZAZIONE DELL' ISTR 

Un esemplo di utilizzo. UZIONE ON INTERVAL GOSUB 
10 SYS52480,10,30 
20 FOR1=1TO5000iNEXT 
23 SYS52635:FORI=1TO5000:NEXT 
25 SYS52570:FORI=1TO5000:NEXT:END 
30 A=A+1:POKE53280,AAND15:RETURN 


Listato 4 * 

Il programma Ora. 


5 REM PROGRAMMA 'ORA' CHE UTILIZZA L* IST 
RUZIONE ONINTERVAL GOSUB 
7 SYS52480,10,15 
10 GOTO 10 

15 BV:= 1063 : C = 55335 : FOR I =6T0 1STEP -2 : FORK=0 
T01:A$=MID*<TI*,I-K,1>:POKEB^,ASC<A$> 

20 POKEC,7 :B%»BK-1 : C =C- 1 :NEXT:BX=BX-1 :NEX 
T:RETURN 
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Programmiamo in Assembler 


SHARP PC-1251 



Programmiamo 
in Assembler 

C arissimi lettori, prima di passa¬ 
re a studiare un programma 
per poter utilizzare lo Sharp 
PC-1251 in linguaggio macchi¬ 
na, dobbiamo parlare di una piccola, ma 
molto importante, scoperta che abbiamo 


fatto di recente. 

Per caso ci è capitato di avere sottomano 
uno Sharp di un collega di università a cui 
volevamo mostrare le nostre precedenti 
scoperte e, con non poca meraviglia, ab¬ 
biamo visto che il suo computer si com¬ 
portava in modo completamente diverso 
da ciò che prevedevamo. 

Indagando più approfonditamente, non 
abbiamo impiegato molto a svelare il mi¬ 
stero: il nostro computer, pur essendo e- 
sattamente dello stesso modello, era fon¬ 
damentalmente diverso dal suo! 

Facendo girare su quello Sharp il Pro¬ 
gramma /, pubblicato sul n. 20 di Agosto- 
Settembre 1984 in questa rubrica, abbiamo 
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trovato che moltissime subroutine del si¬ 
stema operativo iniziano ad indirizzi di 
memoria diversi da quelli pubblicati; così, 
ad esempio, la subroutine Radian non ini¬ 
zia all’indirizzo 22668, bensì all’indirizzo 
22574: una differenza di solo 96 byte, ma 
dalle conseguenze drammatiche, che di¬ 
vengono tragiche osservando che questo 
scarto non è costante. 

Per cercare di svelare il mistero decidem¬ 
mo allora di aprire con molta cura il com¬ 
puter e confrontare i componenti delle due 
macchine. Tolte le due viti, e rimosso l’in¬ 
volucro posteriore, si può osservare a sini¬ 
stra il coperchietto dell’alloggiamento del¬ 
le batterie ed al centro un piccolo circuito 
stampato di forma rettangolare fissato con 
altre tre viti. Una volta svitate anche que¬ 
ste, si può, con molta facilità, rimuovere il 
circuito stampato, essendo questo collega¬ 
to al resto del computer solo con collega- 
menti a contatto. Su di esso si possono 
osservare tre piccoli integrati, che, con 
l’aiuto del manuale tecnico, è molto facile 
identificare: due di essi sono due RAM da 
2 Kbyte e sono contrassegnati dalle sigle 
HM6116 oppure da TC5517 e non hanno 
alcun interesse per la nostra ricerca, l’altro 
invece è identificato dalla sigla LH5329 e 
rappresenta un pezzo della ROM da 6 
Kbyte (vedremo in uno dei prossimi arti¬ 
coli dove sia nascosto il resto della ROM). 
Questo è ciò che dichiara il manuale, però, 
ad un confronto diretto, abbiamo trovato 
che la-sigla completa di questo integrato 
era leggermente diversa: LH5 32916 528D 
nel nostro Sharp e LHj 32922 544C nell’al¬ 
tro. 

In verità non è che la cosa sia molto 
indicativa, poiché ciò che conta è la diver¬ 
sità di quanto è stato memorizzato in que¬ 
ste ROM, non le diversità tra i due rispetti¬ 
vi componenti, anche se è molto probabile 
che un collegamento ci sia. È comunque 
interessante osservare che la facilità con 
cui questo circuito stampato si può smon¬ 
tare fa pensare che sia stato progettato in 
modo da poter essere in futuro sostituito 
da altri più potenti. 

Per quanto riguarda i motivi che hanno 
spinto la Sharp a modificare la ROM, nulla 
ci è dato di sapere; infatti abbiamo esegui¬ 
to alcuni test di velocità ed i tempi di 
esecuzione sono risultati esattamente gli 
stessi per entrambe le versioni; né abbiamo 
potuto riscontrare disfunzioni o diversità 
nei rispettivi linguaggi BASIC. 

Anzi, c’è una “stranezza”, presente in en¬ 
trambi i pocket, che produce lo stesso ri- 
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sultato inspiegabile: provate ad eseguire il 
programma di una sola linea: 

ro'lNPUT'frA 

Come possiamo dunque sapere quale ver¬ 
sione di ROM possediamo? 

Un metodo è quello già detto di andare a 
vedere se le subroutine del sistema operati¬ 
vo coincidono con quelle pubblicate nel 
già citato numero arretrato della rivista, 
ma un sistema molto più veloce è quello di 
confrontare un qualunque indirizzo di me¬ 
moria che presenti un contenuto diverso 
per le due versioni. Per convenzione chia¬ 
meremo V1 la versione della ROM che, 
come nel nostro computer, soddisfa l’e¬ 
spressione: 

PF.EK (16386) = 33 

mentre per V2 intenderemo la versione 
che soddisfa: 

PEEK (16386) = 17 

Vogliamo sottolineare che la diversità tra 
le due versioni è praticamente irrilevante, 


poiché i programmi in BASIC sono com¬ 
patibili al 100% e la diversità appare solo 
andando a scareJ o. rysofcwJkàiaA 
ugualmente molto spiacevole dover fare 
queste scoperte da soli e ci scusiamo con 
tutti quei lettori che, disponendo della ver¬ 
sione V2 del sistema operativo, avranno 
trovato alcune incongruenze in alcuni de¬ 
gli articoli precedenti. Ma la cosa indub¬ 
biamente più spiacevole è di dover rinun¬ 
ciare alla totale compatibilità dei program¬ 
mi scritti in linguaggio macchina, i quali 
spesso necessitano di richiamare delle su¬ 
broutine del sistema operativo. 
Comunque, d’ora in poi ci preoccuperemo 
di curare le eventuali differenze che posso¬ 
no esistere tra le due versioni, in modo che 
i lettori possano seguire gli articoli anche 
se dispongono del BASIC V2. 

Riprendiamo ora il discorso, che aveva¬ 
mo iniziato negli ultimi articoli, riguar¬ 
dante il linguaggio macchina: la volta 
scorsa avevamo visto un semplice, ma uti¬ 
lissimo programma disassembler; questa 
volta realizzeremo invece un Assembler, 
utilissimo per la programmazione in lin¬ 


guaggio macchina. 

Esistono per certi personal computer degli 
«sserv.Waf.o.ti. '-sttePMjxvtw.e.. 
permettono di realizzare i programmi in 
linguaggio macchina in maniera molto ve¬ 
loce c chiara. Quella che proponiamo è una 
versione molto primitiva e semplice, che 
però può essere molto interessante a titolo 
istruttivo. 

Facendo eseguire il programma, la prima 
cosa che viene richiesta è l’indirizzo dal 
quale vogliamo iniziare ad inserire i nostri 
programmi, di cui successivamente viene 
richiesto il nome della prima istruzione: il 
programma va allora a confrontare tutti i 
possibili comandi con il nostro, fino a 
quando non trova il codice corrisponden¬ 
te. Purtroppo questa operazione può risul¬ 
tare molto lunga, impiegando nel caso più 
sfortunato, quello dell’istruzione Cute che 
è l’ultima, circa 40 secondi; in media co¬ 
munque il programma impiega 20 secon¬ 
di. 

Una volta identificata l’istruzione verrà ri¬ 
chiesto, se necessario, l’inserimento di un 
dato o di un indirizzo di memoria. Il pro¬ 
gramma procede quindi a memorizzare i 
codici corrispondenti all’istruzione nelle 
celle della memoria e chiede che gli venga 
inserita l’istruzione successiva. 

Come abbiamo già detto, si tratta di un 
programma estremamente semplice e sen¬ 
za grandi pretese, comunque la prossima 
volta vedremo un esempio di applicazione 
per la creazione di un programmino in 
linguaggio macchina per suonare con lo 
Sharp. 

Per evitare di dover riprogrammare in me¬ 
moria tutte le istruzioni Data, il program¬ 
ma è stato studiato in modo da poter riuti¬ 
lizzare le stesse linee dei dati del program¬ 
ma disassemblcr della volta scorsa. 

Le istruzioni Cai e Lp, per la loro partico¬ 
larità, vengono confrontate all’esterno del 
ciclo principale. ■ 


Listato 1 - Esemplo di un semplice programma Assembler per poter programmare lo Sharp 
PC-1251 In linguaggio macchina. Per semplicità, le linee del dall sono uguali a quelle usate 
per II programma dlsassemblatore visto la volta scorsa. 


s 

60SUB 100 


10 

PAUSE 'ASSEMBLER ' 


15 

INPUT 'START ADDRESS : '{S 


20 

INPUT "CCmWD i *|Ci 


25 

IF W * "LP* THEN INPUT 'OPCODE \ 

• ;0: POKE S,I28«0:S=S*I: GOTO 20 

30 

IF C$ » 'CAL' THEN INPUT 'OPCODE 

: -|0| INPUT -DATE : -|D:P0KE S,22440,D: 


GOTO 20 
35 K=0 

40 IF CS=R1GHT*<2»<K>,LEN<2S<K>)-1> BOTO 40 
45 K=K*l:IF K=128 THEN LET K=I92 
50 IF K<224 GOTO 40 
55 BEEP 2: PAUSE ’ERROR’i GOTO 20 

40 A»=LEFT*<2*<K),i>:lF VAL A»=l THEN POKE S,Ks S=S«I I GOTO 20 
45 IF VAL A»=>2 THEN INPUT ’OATA I -(Di POKE S,K,D:S=S42: GOTO 20 

70 IF VAL A»=3 THEN INPUT ’ADDRESS i •|D« POKE S, K, JNT<0/254), D-INT<D/254>i 
S=S«32sG0T0 20 
100 DIN 2* (223)*4 

110 POR K=0 TO 127: READ 2» (K): NEXT K 
120 FOR K-l 92 TO 223: READ 2* <K>: NEXT K 
130 BEEP 2: RETURN 

140 DATA *2LII *,’2LIJ“,‘2LIA-,-2L1B',"1IX",*1DX‘,-1IY*,■IDY-,■ 1FM*I’, •1EXW* 

150 DATA ‘1NVB 1 IEX8 - ,*1A0N‘,■?*,•1ADW,• 1SBW , -3LIDP 1 , - 2L1DL’ , - 2LIP","2L10‘ 

140 DATA "1ADB",•IS8B 1 ,*?*,*?■,*1MV2D-,■IEXWD - ,•1PW8D-,•IEXBO - ,* ISRW,•ISLU- 
170 DATA •1 FILM","FILO","1LDP",* ILDO",* 1LDR*, ’ ?",“1IXL", " 1DXL", " 11YS" , " 1DYS' 

180 DATA "2JRN2P", "2JRN2M","2JRNCP",* 2JRNCM" ,"2JRP", "2JRM*, "?","2L00P","1STP", 

'I STO" 

I70 OATA ■ISTR",,‘IPUSH - ,‘," IRTN","2JR2P","2JR2M","2JRCP","2JRCM" 

200 OATA “?“,*•?•, *7* ,*?*,• 1INCI*, * 1 DECI' ,"l INCAVIDECA","IADM",M SBN* 

210 OATA MANIA' ,M0RMA* ,"IINCK" ."IDECK" ,"?" I INA"," ÌNOPLJ" ,"2LW1T" ,•?• 

220 OATA ■ 1INCP-, • 1DECP", ■ 1STD", • IWDM" ,■?•,• IMVMO", • ?" , 1LDD - , • 1SUP", • 1LDM" 

230 DATA 1SL *,*1P0P 1 ,“?*,*10UTA*,"?","I0UTF",'2AN1M*,'20R1M',‘2TSIM-,"2CP1M" 

240 DATA -2ANIA-,'20R1A-.-2TSIA-.-2CPIA-,*?■,•?•,•?•.-2TEST-z-,-?■ 

250 DATA •?*,•?• .-2AD1M- ,-2SBIM-,•?•,•?■ ,-2AD!A- .-2SB1A- ,•?•,■■»■,-3CALL-.-3JP- 
240 DATA ■?■,•?-,-3JPN2■,■3JPNC",•3JP2■,■3JPC - , ■ 1INCJ-,• 1DECJ■,• 1INCB" 

270 DATA ' lDECB‘,-1 ADCN-.-ISBCN-,’?•,• lCPm-,-1 lNCL-,-1 DECL-,-?-,•?■,-I1NB- 
280 DATA •?“,•1N0PT",*?*,'1SC“IRC",'1SR*,-2AN1D', "20R1D", "2TS10" 

270 DATA , * 1LEAVE*, " IEXAB-, ‘ 1EXAN' ÌOUTB* 1 Ol/TC* 



COMMODORE 64 


DIEL Data base 
Synthesizer 

Un programma per sintetizzatori 
provvisti di interfaccia MIDI 


I l programma è stato pensato e 
realizzato per rispondere alla do¬ 
manda di musicisti che lavorano 
in studio o "on stage", o di quelli 
che impiegano più tipi di sintetizzatori o 
expander. 

"DIEL” Data base Synthesizer - questo 
è il nome del nuovo package - lavora su 
Commodore 64 ed è presentato su flop¬ 
py disk da 5, 25" o su cassette. 

Per il suo utilizzo sono necessari, oltre al 
computer Commodore 64, al drive o al 
registratore e al monitor (o TV) anche il 
"SIEL” MIDI Computer Interface ed i re¬ 
lativi cavi. 

Il programma lavora con tutti i sintetiz¬ 
zatori provvisti di MIDI e con i modelli 
SIEL Opera 6, e relativi expander, DK 
600, DK 80 e relativo expander. 

Il main menu comprende le seguenti 
voci: 

1) Family operation; 

2) Sequence operation; 

3) Disk operation; 

4) Clear Database; 

5) End of job. 

Alcune opzioni offerte dal main menu 
sono ovvie, come End of job, Clear Data 
base, Disk operation. 

Le altre opzioni sono quelle che di fatto 
caratterizzano il programma. 


Family operation 

Scelta questa opzione si avranno sullo 
schermo tutte le istruzioni per maneg¬ 
giare 250 programmi. 

E possibile indicare i nomi di gruppi di 
programmi, (appunto le famiglie) e e- 
lencare nell'ambito di una medesima 
famiglia un certo numero di prgrammi. 
Tali programmi possono essere assunti 
da sintetizzatori, riordinati, modificati di 
nome e poi riportati su sintetizzatore. 

La visualizzazione di tutti i programmi 
elencati è molto pratica come pratico è 
l'intervento mediante le funzioni previ¬ 
ste. 

Per esempio: le funzioni ammesse in 
ciascuna pagina sono scritte in calce al 
video in nero su fondo verde. 

Ciascuna parola contiene una lettera 
bianca: quella che è necessario digitare 
per attivare la funzione. 

I tasti funzione FI e F3 servono per e- 
splorare la lista dei timbri selezionati 
(avanti e indietro) spostando una ban¬ 


da bianca lungo l'elenco dei titoli (o 
numeri) di programmi presenti sullo 
schermo. 

Ogni intervento, sia esso di modifica, di 
trasferimento di dati da sintetizzatore o 
viceversa, si applica al programma evi¬ 
denziato dalla banda bianca. 

I dati che si maneggiano sono molti ed è 
per questo che sono stati previsti inter¬ 
venti rapidi, semplici e chiaramente in¬ 
dicati. • 

Sequence. Questa opzione permette di 
maneggiare in tutti i modi possibili i pro¬ 
grammi listati nel Data base. 

E possibile infatti modificare l'ordine dei 
vari programmi, creare gruppi di pro¬ 
grammi da utilizzare in circostanze di¬ 
verse, indirizzare i programmi ai sintetiz¬ 
zatori (od expander). 

Un programma come il Data base pro¬ 
pone una pratica soluzione ad alcuni 
programmi ai quali, fino ad ora, pochi 
specialisti di software hanno dedicato 
la loro attenzione. 

Si pensi ad esempio ad un’orchestra 
MIDI che lavora on stage. Durante una 
serata può presentarsi la necessità di 
modificare rapidamente il set-up di mol¬ 
ti strumenti; non solo, può anche acca¬ 
dere che uno o più debbano essere mo¬ 
dificati durante l'esecuzione... tutto 
questo può essere predisposto in antici¬ 
po con Data base e poi attuato durante 
l'esecuzione. 

Inutile dire che anche lavorando nello 
studio di registrazione l'utilità del Data 
base non viene assolutamente sminui¬ 
ta. Preparare i programmi in tempo, e 
poterne disporre rapidamente quando 
servono, significa prima definire con 


calma ogni intervento e poi risparmiare 
tempo. 

E sappiamo tutti che il tempo è denaro e 
che il tempo degli studi di registrazione 
ne vale molto! 

È come sempre inutile descrivere più 
dettagliatamente gli interventi previsti 
per l'utilizzo di questo programma, ci 
sembra invece utile sottolineare il fatto 
che un programma come il Data base 
Synthesizer è un programma utile e ca¬ 
pace di lavorare instancabilmente. 

Utile perché dispone di una grafica 
semplice anche se efficientissima e per¬ 
ché non maneggia parametri su para¬ 
metri riempiendo lo schermo. 
Instancabile perché lavora attivamente 
a strutturare per voi la strumentazione 
di una intera orchestra MIDI, la maneg¬ 
gia con rapidità e precisione lasciando¬ 
vi il tempo, se volete, di pensare all’ese¬ 
cuzione oppure, se siete “sequenzeriz- 
zati", di dedicarvi al vero risultato finale. 

Comunque per apprezzare i soggetti 
utili e instancabili è necessario cono¬ 
scerli molto da vicino. 

Provate ad utilizzare una volta Data ba¬ 
se Synthesizer, certamente vi troverete 
d’accordo con noi! 

Per ulteriori informazioni contattare la 
SIEL - Zona Industriale Mancasale - 
63030 Acquaviva Picena (AP) - P.O. Box 
199 - S. Benedetto del Tronto - Tel. 0735- 
60744. ■ 







Apple 


Causa cambio sistema svendo oltre 500 programmi di 
ogni genere per Apple. Cedo In blocco 10 dischetti 
doppia faccia a L 100.000; vendo anche separatamen¬ 
te. Per catalogo; Bruno Rota - Via Passo Di Brizio, 6 - 
20148 Milano - Tel. 02/4082437 


Causa cambio sistema vendo per Apple dieci dischi 
doppia faccia con I migliori programmi di giochi ed 
utilità a L. 100.000. Marco Pozzi-Via Cenisio, 16-20154 
Milano - Tel. 02/314151 


Vendo Macintosh Apple completo di mouse, stampante 
e software ancora in garanzia a prezzo ultravantaggio¬ 
so. Per Informazioni telefonare ore ufficio allo 
085/56356. Daniela Pucciarelli - Via Pisa, 29 - 65100 
Pescara - Tel. 085/420124 


Cerco possessori di Apple Macintosh per scambio e- 
sperienze. Mario Taragoni - Piazza Rossetti, 4/5 - 
16129 Genova - Tel. 010/561692 


Vendo favoloso Apple Ile, garanzia fino ad Agosto 1985 

con mouse, DOS, Prodos, Logo, manuali vari, program¬ 
ma autoistruzione BASIC, Tre Per Tre e giochi su dischi 
a L. 2.500.000 non trattabili. Adriano Barblero - Via 
Barco, 38 - 36026 Poiana Maggiore (VI) - Tel. 
0444/898403 


Vendo per Apple II Supertoto 1.0, superprogramma 
Totocalcio Inedito, 3 diverse opzioni di selezioni incro¬ 
ciate con output nr. colonne utili, sviluppo su monitor o 
stampante L. 60.000 con manuale. Roberto Rossi - Via 
tarlo, 26 - 20159 Milano - Tel. 02/6070236 


Per Apple II. Ile o Ile vendo a L. 28.000 contrassegno 
programma Toto 13 2.0 con manuale, che permette lo 
sviluppo di qualsiasi sistema integrale o condizionato. 
Dario Durante - Via Meucci, 22 - 64022 Giulianova (TE) 


Vendo Apple Ile con disk Ile e Imagewriter 80 colonne, il 
tutto ancora in garanzia. Accludo abbondante softwa¬ 
re. Prezzo L. 3.500.000 trattabili. Gianmaria Gregori - 
Via Volturno, 9 - 27100 Pavia - Tel. 0382/3663 


Commodore 


Vendo Commodore 16 nuovo più registratore origina¬ 
le, 6 giochi originali Commodore, connettore per adat¬ 
tamento joystick a L. 250.000. Eugenio Ingoglia - Con¬ 
trada Marcato - 91028 Partanna (TP) - Tel. 0924/88053 


Vendo VIC 20 completo di registratore, cassette con 
giochi ed utility, manuale d'uso in Italiano. Il tutto anco¬ 
ra Imballato a sole L. 200.000. Davide Torre - Via D'Or¬ 
si, 13-80131 Napoli - Tel. 081/252913 


Vendo registratore originale 1530 per C64 con oltre 100 
programmi fra cui varie ed importanti utility. Garanzia 
da spedire, tutto a sole L. 130.000 trattabili. Cristina 
Cinquini - Via Da Vinci, 131 - 55049 Viareggio (LU) - Tel. 
0584/45156 52498 


Vendo Tot Professional per C64 a L. 20.000, sia su disco 
che su nastro. Effettuo anche scambi. Scrivere o telefo¬ 
nare a: Andrea Marangoni - Via Pausula, 72 - 62014 
Corridonta (MC) - Tel. 0733/292416 


Vendo VIC 20 più espansione 3-8-16 Kbyte, joystick, 5 
cartucce (Road Race, Jupiter Lander), 3 cassette, 4 libri 
pieni di software. Il tutto a L. 350.000 trattabili, telefona¬ 
re ore serali. Paolo Valchera- Via Del Poggio, 8-03100 
Frosinone - Tel. 0775/81159 


Vendo per C64 programma gestionale conta¬ 
bilità ordinarla: stampa libro giornale, i parti- 
tari clienti e fornitori, la situazione contabile 
con il conto profitti e perdite. Rag. Luciano 
Usuelli - Via Isonzo, 31 - 21100 Varese - Tel. 
0332/242596 


Cambio con tutti i possessori di Commodore 16 listati di 
qualsiasi tipo, formando cosi un club italiano. Affretta¬ 
tevi a scrivermi: se saremo in molti, molto sarà II nostro 
software. Alessandro Guerinoni - Via Cambo La Mola, 
41 - 04017 San Felice Circeo (LT) - Tel. 0773/536292 


Vendo stampante Commodore MPS801 In perfetto sta¬ 
to a L. 400.000. Regalo a chi la acquista un bellissimo 
programma grafico per la suddetta stampante. Gian¬ 
carlo Mariani - Viale Brianza, 72 - 20036 Meda (MI) - 
Tel. 0362/72565 


Vendo C64 più registratore originale e joystick 
nuovi a L. 469.000; drive 1541 a L. 448.000; 
scatole 10 dischetti a L. 35.000; monitor colori 
14" nuovo a L. 495.000. Donato Domus - Via 
Bedani. 3 - 20124 Milano - Tel. 02/6705774 


Cerco ragazzi disposti a formare un club per C64. 

Accetto sottoscrizioni da ogni parte d'Italia. Andrea 
Natale - Via Lucca. 14 - 20156 Milano - Tel. 02/4566963 


Per C64 vendo programma gestione rappresentanti e 

agenti con archivi clienti e articoli, con calcolo provvi¬ 
gioni e segnalazione dei clienti da visitare. Per ulteriori 
informazioni telefonare ore serali. Calcedonio Meli - 
Via G. Amico Valenti, 89 - 93100 Caltanissetta (CL) - Tel. 
0934/23365 


Compro per C64 stampante a prezzo modico e fotoco¬ 
pie delle parti 1 e 2 di "Dentro l'avventura" pubblicato 
sul nr. 2 di "Personal Software". Guido Anastasia - 
Viale delle Regioni - 85029 Venosa (PZ) 


Vendo plotter 1520 Commodore usato pochissimo, 
prezzo richiesto L. 300.000. In più regalo 2 programmi 
per la gestione della periferica in questione (Basotter e 
Pwedge). Marco Zuffi - Via Rappini, 63 - 40134 Bologna 
- Tel. 051/410368 


Compro II vostro C64 ormai fuori produzione insieme a 
registratore e video, solo nelle zone di Puglia e Basili¬ 
cata. Valuto anche materiale guasto. Maurizio Cocco¬ 
rese - Via Gentile, 108/D - 70126 Bari - Tel. 080/491374 


Vendo le cartucce Slmons' BASIC con manuale Italiano 
e Hesmon con manuale Inglese. Praticamente nuove, 
L. 120.000. Tratto preferibilmente con la zona di Milano. 
Telefonare ore 19.00-20.00. Carlo llacqua - Via Volturno 
80, Portici 3 - 20047 Brugherio (MI) - Tel. 039/878607 


Vendo VIC 20 più cavetti vari, oltre 200 giochi, espan¬ 
sione da 8 Kbyte a L. 100.000. Regalo, a chi acquista il 
computer, un corso di BASIC su cassetta e diversi libri. 
Roberto Zannoni - Via Biancardi, 9 - 20075 Lodi (MI) - 
tei. 0371/53847 


Per C64 vendo programmi per uso professionale. Di¬ 
spongo di programmi specialistici di Ingegneria civile, 
contabilità, grafica, musica, matematica, statistica, 
ecc.,ecc. Massimo De Luca - Via Neghelll, 13 - 87100 
Cosenza - Tel. 0984/22180 


Vendo super expander 3 Kbyte ed espansione di me¬ 
moria 8 Kbyte per VIC 20 più cartridge. Telefonare per 
offerte. Vincenzo Musicò - Via Paolo Blandino, 12 - 
98100 Messina - Tel. 090/2938626 


Vendo C64 più floppy, datassette, 30 dischi colmi di 
software, libri dedicati a L. 1.200.000, possibilmente In 
blocco. Materiale perfetto e disponibile per prove e 
dimostrazioni. Luigi Callegari - Via De Gasperi, 47 - 
21040 Sumirago (VA) - Tel. 0331/909183 


Vendo VIC 20 più registratore, 16 Kbyte RAM, joystick, 
50 programmi di utilità e giochi, 2 libri ed alcune riviste. 
Francesco Campanella - Via Macedonio Melloni, 49 - 
20129 Milano - Tel. 02/7423489 


Vendo VIC 20 più 16 Kbyte RAM, registratore originale, 
26 nastri con moltissimi programmi di ogni tipo, mother 
board autocostruita a L. 250.000. Telefonare in orarlo di 
cena. Alessandro Giolitti - Via Fabroni, 45 - 50134 Firen¬ 
ze - Tel. 055/47381 



































Compro floppy disk 1541 per C64 purché In buone 
condizioni. Prezzo da concordare. Solo zone Milano e 
Cremona. Telefonare la sera. Angelo De lovanna - Via 
Frecavalli, 19 - 26013 Crema (CR) - Tel. 0373/56411 


Sinclair 


Affarone: Vendo ZX Spectrum come nuovo più cavi, 
manuale in Inglese/itallano, ZX printer, registratore, 
listati, cassette, con 200 giochi circa. Il tutto a L. 
460.000. Telefonare ore pasti. Roberto Tlrone - Via 
Paclni, 16 - 20131 Milano • Tel. 02/295064 


Cerco stampante, penna ottica, Interfaccia Joystick od 
altro hardware in cambio di software per Spectrum le¬ 
so Kbyte. Telefonare dopo le 17.00 Mariano Marcone - 
Rione 167 Isolato K-Scala L, 245 - 60144 Napoli - Tel. 
081/7014173 


Càmbio Spectrum 16 Kbyte completo di cavi, alimenta¬ 
tore 2.4A. libro italiano, 50 giochi LM con interfaccia 1 e 
mlcrodrive o vendo a L. 360 000. Telefonare dopo le 
17.00. Mariano Marcone - Rione 167 Isolato K-Scala L, 
245 - 80144 Napoli - Tel. 081/7014173 


Effettuo ottime traduzioni dall'Inglese di testi e manuali 

Inerenti 1 computer Sinclair a prezzi modicissimi e/o in 
cambio di programmi per Spectrum 48 Kbyte. Per infor¬ 
mazione e liste pregasi allegare francobollo. Rossano 
Mariottì - Via Eugenio Curiel. 7 - 61032 Fano (PS) 


Cerco ZX printer In buone condizioni da scambiare con 
oltre 200 programmi commerciali in LM. Massimo Ge¬ 
nova - Via Umberto I, 26 - 90044 Carini (PA) - Tel 
091/8661595 


Vendo Spectrum 48 Kbyte Imballato (normale o plus) 
più Interfaccia per joystick, istruzioni in italiano e 100 
programmi novità a L. 450.000 o L. 550.000. Stefano 
Gallendo - Via Galvani, 4 - 00153 Roma - Tel. 
06/5781083 


Per ZX Spectrum vendo un amplificatore da 2 Watt a L 
20.000 più alimentatore per questo amplificatore a L. 
10.000 (spese postali comprese). Telefonare ore pasti. 
Oreste Collivignarelli - Via G. Di Vittorio, 159H - 71100 
Foggia - Tel. 0881/33666 


Cerco per Spectrum 48 Kbyte software rotativo all’lm- 
paglnazlone di un giornale. Sono In attesa di un solleci¬ 
to riscontro. Ferino Mario - Via F. Crispi. 99 - 95039 
Trecastagni (CT) - Tel, 616530 


Vendo ZX Spoctrum 48 Kbyte completo di tastiera 
DKTronics. interlaccla Kempston, stampante Alpha- 
com 32 e 1.300 programmi, comprese ultimissimo novi¬ 
tà, a L, 800.000. Compro stampante per C64. Alfredo 
Trifilettì - Via Fiume, 20/A • 71100 Foggia - Tel. 
0881/79385 


Vendo Spectrum 48 Kbyte più vari giochi e d utility, 
manuale, libro "Tecniche avanzato in Assembler con 
lo ZX Spectrum" McGraw-Hill Editore a L. 330.000 
Fabio Geremei - Via Pascarella. 3 - 05100 Terni - Tol 
0744/58936 oppure 06/63639 


Texas 


Vendo SSS Eztended BASIC per TI 99/4A più manuale, 

corso su cassetta a L. 170.000; 3 cassette TI 99 Newsoft 
a L. 20.000; 4 cassette originali Texas Instruments a L. 
35.000 (valore L. 70.000); cavetto registratore a L. 
10.000 Giampaolo Badiali - Via C Pisacane. 12 - 60033 
Chlaravallo (AN) - Tel. 071/946311 


Cerco modulo Extended BASIC por TI 99/4A. Possibil¬ 
mente con manuale d'uso. Giovanni Arcadi-Via Enrico 
Formi. 7 - 89048 Siderno (RC) - Tel. 0964/341461 


Compro Mlnlmemory SSS più cassetta Lines, Sintetiz¬ 
zatore Vocale. Terminal Emulator solo se totalmente 
funzionanti e convenienti. Tratto con le zone di Torino o 
Milano. Telefonare oro serali, dopo le 19.00. Nicola 
Passalacqua-Via Onorato Vlgliani, 15/4-10135 Torino 
-Tel. 011/6192252 


Vendo TI 99/4A, box disk controllar TI, Extended BASIC, 

TI Logo: SSS dati pers.. statistica, scacchi, aiuto pro¬ 
grammazione; SSS didattici ed aritmetici; manuali, ac¬ 
cessori a L. 500.000 trattabili oppure separatamente 
Agostino Micheioni - Via A. Provolo. 20 - 37123 Verona - 
Tel. 045/21419 


Per TI 99/4A vendo moduli SSS TI Extended BASIC, 
Othello, Scacchi, il tutto a L. 35.000. Telefonare dopo le 
19 oppure scrivere a: Luciano Fiorese - Via Col Di Lana, 
8 - 35027 Novanta (PD) - Tel. 049/504840 


Vendo TI 99/4A più Extended BASIC con manuale, box 

espansione, 32 Kbyte RAM. disk drive più disk control. 
3 libri in italiano su TI 99/4A. garanzie da compilare e 
300 programmi su 30 floppy al miglior offerente. Gio¬ 
vanni Binda - Via Pr. Volta. 14/1 - 22054 Mandello Larlo 
(CO)-Tel. 0341/735841 


Vendo TI 99/4A più Extended BASIC, Scacchi e altri due 
SSS. "A scuola col TI" con 2 cassette, tutte Newsoft, 50 
programmi e listati a L. 500.000; registratore Texas L. 
80.000. Ruggero Concone - Via Crespi. 1 - 28100 Novara 
- Tel. 0321/27023 


Vendo TI 99/4A più cavo registratore, registratore, ma¬ 
nuale d'uso, libri di programmi e numerossimi giochi, 
tutti disponibili su cassetta. Tutto in ottime condizioni (4 
mesi di vita), da L. 320.000 a L. 300.000. Claudio Saia - 
Via Avanzini, 12-41042 Fiorano (MO) -Tel. 0536/830451 


Cerco programmi per Texas TI 57, TI 58, TI 58C, TI 59, TI 
66. massimo 500 passi SI preferiscono programmi di 
applicazioni matematiche Stefano Galli - Via Pisaca¬ 
ne. 43 - 54011 Aulla (MS) - Tel. 0182/409422 


Per TI 99/4A compro interfaccia RS-232 per perlpheral 
box. Telefonare ore 19.00-21.00. Valerio Ferrari - Via 
Casella. 23/C - 37051 Bovolone (VR) - Tel. 045/7100835 


Per passaggio a C64 vendo TI 99/4A più 9 moduli, 11 
cassette, joystick, Extended BASIC a L. 710.000 (valore 
effettivo L. 980.000). Vendo sla in blocco sla singolar¬ 
mente. Claudio Margaroll - Via Matteotti, 110 - 28021 
Borgomanero - Tel. 0322/845154 


Cerco per TI 99 cartucce a basso prezzo, coppia di 
joystick originali a meno di L. 30.000. Compro inoltre 
hardware guasto a prezzi stracciati. Davide Scala - Via 
Divisione Acqui. 8 - 46100 Mantova - Tel. 0376/363585 


Vendo per TI 99/4A cavetto registratore, Joystick e 6 
moduli SSS (Calcio, Blasto, Zero Zap, Black Jack e 
Poker, Video Games, Crlstrolm T rail). Scrivere o telefo¬ 
nare dalle ore 18.00 alle ore 20.00 (non oltre). Walter 
Scandaluzzi - Via Case Nuove. 26 - 13052 Gagllanico 
(VC)-Tel. 015/541152 


Vendo TI 99/4A con: alimentatore, cavo registratore, 
SSS Connect Four, corso per II BASIC. 1 libro per il 
BASIC. 3 libri di giochi. 11 cassette piene a L. 250.000. 
Telefonare ore 14.00. Andrea Cavalli - Via Edolo. 9 - 
20125 Milano - Tel. 02/6083443 


Varie 


Vendo Sharp-721 64 Kbyte con registratore Incorporalo 
più giochi e programmi a sole L. 500.000. Furio Masse! • 
Viale del Tirreno, 85 - 56018 Tirrenia (PI) - Tol. 
050/32613 


Vendo Intellevlalon come nuovo più 8 cartucce (Soccer, 
Atlantls, ecc.) a L. 180.000 Telefonare dopo le 14,00. 
Carlo Sani - Piazza Plebiscito, P.zzo Reale - 80132 
Napoli-Tel. 081/603144 


Per passaggio a sistema superiore vendo pocket 
Sharp PC-1401 In porfetle condizioni, completo di a- 
stucclo, a sole L. 89.000. Telefonare in orarlo di cena. 
Marco Tavernini - Via Lido, 40 - 39012 Merano (BZ) - 
Tel. 0473/48059 


Compro amplificatore BF Philips a valvole tipo 
EL6432/02 composto da 2 ECC83 e 4 EL34. anche non 
funzionante. Telefonare ore pasti. Massimo Bisso - Via 
della Repubblica. 20/1 - 16032 Camogli (GE) • Tel. 
0185/772890 


Vendo MPF II (Apple compatibile) più tastiera, disk 
drive, 3 cassette e 2 dischi di programmi. Tutto come 
nuovo a L. 500.000. Segio Guccinl - Via M. Rosi, 88 - 
55100 Lucca - Tel. 0583/46566 


Compro riviste "99er Magazlne" anche fotocopiate. 
Comunicare quantità e prezzi a: Gian Luigi Calzolaro - 
Via M. della Benedicta. 3/12 -16010 Rossiglione (GE) • 
Tel. 925447 


Vendo Sharp MZ-721 mal usato ancora imballato, con 
registratore e garanzia a L 450.000 trattabili. Chiara 
Aguiari - Via Malta. 6 - 35135 Padova - Tel. 049/610173 


Vendo Intellevlalon completo con 9 cassette originali, 
tutto In ottimo stato, a sole L. 150.000 trattabili. Stefano 
Caiani - Via Quart D'Aosta, 6 - 55049 Viareggio (LU) - 
Tel. 0584/45156 oppure 52498 


Vendo VCS Alari più 14 cartucce più altri 18 giochi in 
regalo a L. 370.000 oppure cambio con C64. aggiungen¬ 
do L. 30.000 a conguaglio (L. 80.000 se con registrato- 
re). Nino - Via Garibaldi - 81055 S.Marla Capua Vetere 
(CE) - Tel. 0823/811029 


Vendo Enciclopedia "ABC Personal Computer" e 
"ABC Quiz" del Gruppo Editoriale Jackson, Il tutto del 
1984, già rilegate, a sole L. 90.000. Davvero ecceziona¬ 
le! Scrivere a: Giovanni Cariello - Via Antonio Cocchi, 
38 - 71042 Cerignola (FG) 


Cerco Assembler per M20; cambio con programmi 
scientifici, utility e fantastici videogiochi, anche in LM. 
sempre per M20 Possibilmente telefonare dopo le 
21.00 o scrivere a: Paola Brancato - Via Solferino, 9 - 
15033 Casale Monferrato (AL) - Tel. 0142/79042 


Vendo Consolle Alari VCS 2600 come nuovo, usalo 
pochissimo più 5 cassette (Breakout. Combat. Space 
Invaders. Pac Man, Night Driver), joystick e paddle a L. 
400.000. Giuseppe Carazza - Vìa Torretta, 22 - 24100 
Bergamo 

Vendo TV monitor Philips mod. Graphics 14", 1 mese di 
vita, con ingressi RGB e video - composito a L. 500.000. 
Giorgio Benso - Corso Correnti, 65 -10136 Torino - Tel 
011/367276 


Cedo in blocco a L. 35.000, escluse spese di spedizio¬ 
ne. le riviste "Commodore Computer Club" dal nr. 1 al 
nr. 19 e "Commodore" dal nr. 1 al nr. 8. come nuove. 
Massimo Melloni - Via Rodi, 2-19 -17100 Savona 


Vendo Alari BOOXL, tavoletta grafica, registratore dedi¬ 
cato, plotter Atari 102 4 colori causa passaggio a siste¬ 
ma superiore. Tutto negli imballi originali, come nuo¬ 
vo. usato tre mesi Scrivere o telefonare. Affarone. 
Ferruccio Sepe - Via Palinuro, Parco Padre Pio - 84098 
Pontecagnano (SA) - Tel. 089/382077 


Vendo stampante Alphacom 32 a L. 180.000. Marco 
Poletto - Via Plannenstiel, 2 - 39100 Bolzano - Tel. 
0471/971887 


Vendo Sharp MZ-70O con disk drive 320 Kbyte, plotter 
colori, unità nastro con tutto II software operativo e 
applicativo Come nuovo, garanzia in bianco. Regalo 
dischi. Prezzo da concordare. P. Tommaso Benati - Via 
Gastaldi, 10/1 -16043 Chiavari (GE) - Tel. 0185/321335 


Cambio VIC 20 con TRX per 144 MHz. Telefonare dopo 
Ie21.00. Luigi Centi - Via C. Orientale. 19 - 67039 Sulmo¬ 
na (AO) - Tel. 52169 
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l’Apple ? 


Paolo Capobussi 
IL MACINTOSH NEGLI AFFARI: 
MULTIPLAN E CHART 

Una presentazione dei due pro¬ 
grammi tra i più diffusi in ambito 
aziendale: Multiplan e Chart, per 
un gioiello della tecnologia perso¬ 
nal: l'Apple Macintosh. 

Cod. 416P L. 16.500 

John Gray 

TASCABILE APPLE Ile E Ile 

Il libro conduce il lettore princi¬ 
piante alla scoperta di tutti i segre¬ 
ti della programmazione dell'Ap¬ 
ple Ile e Ile, attraverso un linguag¬ 
gio non tecnico e presentando di¬ 
versi listati, tutti ampiamente com¬ 
mentati. 

Cod. 003H L. 8.500 

Domenico Inga 
e Philip N.S. Taylor 

WORD PROCESSING 
GUIDA ALL’USO 

L'Istituto Europeo d'informatica, 
con sede a Monza via Vittorio 
Emanuele I, ha creato questo te¬ 
sto autodidattico per permettere, 
in modo semplice e funzionale, di 
conoscere, sfruttandone appieno 
le potenzialità, un programma di 
word processing. l. 26.000 

Cod. PP148 con floppy disk APPLE 


ritagliare (o fotocopiare) e spedire in busta chiusa a 
GRUPPO EDITORIALE JACKSON - Divisione Libri • Via Roseto, 12 - 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


Stanley R. Trost 
BASIC SU APPLE 

Avete un Apple e volete finalmen¬ 
te imparare a scrivere dei pro¬ 
grammi in BASIC? Nessun proble¬ 
ma, questo libro vi aiuterà sempli¬ 
ficando notevolmente il vostro la¬ 
voro. 

Cod. 532H L. 14.000 

Rodnay Zaxs 

PROGRAMMAZIONE DEL 6502 

Come si fa ad utilizzare un compu¬ 
ter senza conoscere il funziona¬ 
mento del suo “cuore"? In questo 
libro le informazioni più utili sul 
6502: il microprocessore dell'Ap¬ 
ple. 

Cod. 503B L. 30.000 

Paolo Capobussi 
UN MAC PER AMICO: USO, 
APPLICAZIONI E PROGRAMMI 
PER MACINTOSH 
La presentazione di Macintosh e 
dei suoi programmi più adeguata 
per chi si avvicina al personal com¬ 
puter e per chi desidera utilizzarlo 
più proficuamente. 


J.A. Titus - D.G. Larsen - 
C.A. Titus 

INTERFACCIAMENTO 

DELL’APPLE 

Un libro per tutti gli utenti dell'Ap¬ 
ple che desiderano accrescere la 
loro competenza nell'uso del 
computer. Un'occasione d'oro per 
aggiungere qualcosa di veramen¬ 
te npovo alla vostra biblioteca. 
Cod. 334B L. 14.000 

N. Bréaud-Pouliquen 
APPLE MEMO 

I comandi, i relativi codici, i mes¬ 
saggi di errore, il linguaggio mac¬ 
china, le connessioni: troppe in¬ 
formazioni da ricordare. Con que¬ 
sto libro a portata di mano, e di 
computer, il vostro Apple non avrà 
più segreti per voi. 

Cod. 340H L. 15.000 

Frédéric Lévy 
ALLA SCOPERTA 
DELL’APPLESOFT 
Un libro da non perdere per tutti 
quelli che intendono utilizzare il 
BASIC dell'Apple per scrivere dei 
veri, chiari, utili programmi. 


VOGLIATE SPEDIRMI 


n® copie 

codice 

Prezzo unitario 

Prezzo totale 













Totale 



□ Pagherò conlrassegno al postino ti prezzo indicato piuL. 3.000 per contributo baso 
spese di spedizione 


Condizioni di pagamento con esenzione del contributo spese di spedizione 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n 1 1666203 a voi intestato 

□ Allego fotocopia di versamento 

N°_ su vaglia postale a voi intestato 


Nome 

Cognome 

Via_ 

Cap Città 

Data Firma 


Spazio riservato alle Aziende Si richiede remissione di fattura 


Partita i V A 


1 I I I 1 I I I I I I I I 


Prov 


ORDINE 
MINIMO 
L 50 000 


Cod. 424P 


L. 12.000 


Cod. 400H 


L. 12.500 


9 risposte Jackson 

























1 - CLIPPER 

Finalmente un tagliadischi che funziona (grazie all'esclusiva 
combinazione punzone-piastrina di tranciatura in acciaio temperato). 

2 - AZIMUTH CONTROLLER 

Il kit di taratura che si distingue per l'elegante presentazione 
in confezione libro - Dotato ai manuale e cacciavite a croce. 

3 - MOUSE 64 

Finora questo accessorio era risevato ai personal più costosi 
e prestigiosi - Oggi anche l'utente Commodore 64 può scoprire 
una nuova dimensione: Versatilità, Velocità, Praticità. 

h 

f 

S 0 F/T Y srl. via Kennedy 11, 


Prodotti 


distribuiti 


d a : 


20090 Rodano (MI) 













